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ABSTRACT 


THIS PROGRAM IS DESIGNED TO BE RUN ON A PDP11/44 ON WHICH 

THE CPU, CACHE(IF APPLICABLE), AND MEMORY MANAGEMENT DIAGNOSTIC PROGRAMS 
HAVE BEEN RUN. THE PROGRAM WILL DETECT ALL ERRORS THAI 

ORIGINATE WITH THE MAP BOX AND PROVIDE LOOPING CAPABILITIES 

SO THAT THE FIELD SERVICE ENGINEER CAN VERIFY THE FAILURES. 

THERE MAY BE SOME CASES, SUCH AS THE CACHE REGISTER DATA 

PATH, AND CACHE MEMORY DATA PATH, WHERE INTERACTION BETWEEN 

MODULES PROHIBITS CLOSE ISOLATION, BUT THE FAILING FUNCTION 

WILL BE CALLED OUT SO THE FIELD SERVICE ENGINEER CAN 

COMPLETE THE ISOLATION PROCESS. 


If THE PROGRAM CATCHES AN ERROR IN AN EARLY TEST 
AND IS ALLOWED TO CONTINUE RUNNING THROUGH THE 
LATER TESTS THE ERROR INDICATIONS FROM THOSE LATER 
TESTS MAY BE INVALID. THIS IS DUE TO THE STRUCTURE 
OF THE PROGRAM, WHICH ASSUMES THAT ALL AREAS TESTED 
PRIOR TO THE CURRENT TEST ARE FUNCTIONING PROPERLY. 


THE ERROR TYPE OUTS WILi BE IN TABLE FORMAT, WITH 

A MESSAGE INDICATING THE CLASS OF ERROR, A HEADER 
IDENTIFYING EACH COLUMN AND A REPORT OF ALL 

PERTINENT DATA. WHEN THE TEST CAN PRODUCE 

MORE THAN ONE ERROR CONDITION, A SUMMARY OF 

ERRORS WILL BE GIVEN AT THE END OF THAT TEST 
CONSISTING OF: THE LOGICAL ‘AND* AND ‘OR OF THE DATA 
A 4 Sprndel REPORTED AND THE NUMBER OF ERRORS IN THIS 
(SEE SECTION 6.3 FOR AN EXAMPLE OF THE ERROR TYPEOUTS.) 


REQUIREMENTS 


EQUIPMENT 


THE BASIC PDP=-11/44 COMPUTER, INCLUDING THE CPU, CACHE, MEMORY 
ey ii AND AN LA=%0 OR EQUIVALENT DEVICE FOR ERROR 


STORAGE 
THIS PROGRAM WILL REQUIRE 8k TO LOAD BUT WILL UTILIZE ALL 


EXISTING CORE FOR A DUAL ADDRESSING TEST OF MEMORY 
FROM THE UNIBUS. 





eg ee ec ae 





PRELIMINARY PROGRAMS 


THE CPU, CACHECIF APPLICABLE), AND MEMORY MANAGEMENT DIAGNOSTICS SHOULD BF RUN 
BEFORE THIS PROGRAM. THE MEMORY DIAGNOSTIC SHOULD AT LEAST, 

MAKE A QUICK VERIFY OF THE AREA OF MEMORY THIS PROGRAM 

wIiLt LOAD AND RUN IN, 





SEQ 0005 


LOADING PROCEDURE 


METHOD. 


THIS PROGRAM CAN BE LOADED FROM ANY DEVICE THAT [IS 
SUPPORTED BY XXDP AND SHOULD BE LOADED USING THE xxDP 
PROCEDURE FOR THAT DEVICE. 


STARTING PROCEDURE 


STARTING ADDRESS 
PROGRAM STARTS AT ADDRESS 200 
PROGRAM AND/OR OPERATOR ACTION 


PROGRAM WILL IDENTIFY ITSELF AND AT THE END OF 
EACH PASS WILL INDICATE THE TOTAL 
NUMBER OF ERRORS OCCURRING ON THAT PASS. 


SPECIAL STARTING PROCEDURE 


IF IT APPEARS THAT THE CACHE IS CAUSING SOME TROUBLE AND 
YOU STILL WANT TO RUN THIS PROGRAM, IT IS POSSIBLE TO RUN 
WITH THE CACHE DISABLED. SIMPLY LOAD THE CACHE CONTROL 
REGISTER (17777746) WITH THE DESIRED NUMBER. _THEN LOAD 

THE PC (17777707) WITH THE STARTING ADDRESS (200) AND 
PRESS ‘‘CONTINUE'’. THE PROGRAM WILL NOW RUN NORMALLY EXCEPT 


THAT CERTAIN TESTS WILL BE SKIPPED SINCE THE CACHE IS DISABLED. 


THIS FACT IS INDICATED IN THE ABSTRACT OF EACH TEST THAT 
CHECKS THE CACHE CONTROL REGISTER. 


DEFINITION OF THE BITS IN THE CACHE CONTROL REGISTER: 
BITOO -DISABLE TRAPS 

BITO2 -FORCE MISS ON READ,WHERE ADDRESS BIT 12 IS 0 
BIT03 -FORCE MISS ON READ,WHERE ADDRESS BIT 12 IS 1 
BITOS =-UNCONDITIONAL CACHE BYPASS 


SEQ 0006 
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OPERATING PROCEDURE 


ERROR 
ON TEST 

ERROR TYPEOUTS 

TRACE TRAP 

ITERATIONS 

ERROR 

ERROR 
OOP ON TEST IN SWR<05:00> 
INHIBIT MULTIPLE ERROR TYPE OUTS 
SELECT CACHE TESTS. THIS IS USED FOR 
MFG. QUICK VERIFY STATION AND CAN BE SELECTED 
BY APT SCRIPTING. THESE TESTS ASSUME THAT 
ALL MODULES EXCEPT UBI MODULE ARE KNOWN GOOD. 


"ot 


et eet od oe! 2d at J td 


nnunnntiw et 


SUB=ROUTINE ABSTRACTS 


ALL SUBROUTINE ABSTRACTS APPEAR IN THE CODE BEFORE THEIR 
EXPANSION AND IN THE DOCUMENT THAT IMMEDIATELY FOLLOWS THIS. 
BELOW IS A LIST OF THE SUBROUTINE TITLES. 


MACRO LIBRARY SUBROUTINES (FOUND IN MOST PROGRAMS) 


SCOPE HANDLER ROUTINE 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPE OUT ROUTINE 

CONVERT 16-BIT VIRTUAL ADDRESSES TO 22-BIT PHYSICAL ADDRESSES 
SAVE AND RESTORE RO-R5 ROUTINES 

TYPE ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

TRAP DECODER 

POWER DOWN AND UP ROUTINES 

DOUBLE LENGTH BINARY TO OcTAL ASCII CONVERT ROUTINE 
END OF PASS ROUTINE 


SUBROUTINES UNIQUE TO THIS PROGRAM 


TURN OFF AND SAVE T-BIT 

RESTORE T-BIT TO ITS PREVIOUS CONDITION 

SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 
SUBROUT INE REPORT MAP REGISTERS THAT WILL NOT HOLD ZERO 


SUBROUT INE REPORT DUAL ADDRESSING WHEN LOADING A MAP REGISTER 


SUBROUT INE REPORT COUNT PATTERN ERRORS IN MAP REGISTERS 
SUBROUT I NE REPORT COUNT PATTERN ERRORS ON UNIBUS DATA PATH 
SUBROUT INE REPORT COUNT PATTERN ERRORS IN CACHE REGISTERS 


TRAP AND ABORT HANDLER ROUTINES 
CPU TRAP HANDLER ROUTINE 


CACHE TRAPS AND ABORTS HANDLER ROUTINE 
MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 





_ 























SEQ 0008 
5.3 RUNNING UNDER APT 


THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT perouae 
ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 
‘6K CORE MEMORY, AND 300 BAUD. 
THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 
1. — TABLE *A* IS USED FOR APT DUMP MODE. 
A. IN ADDITION TO NORMAL CPU DIAGNOSTIC TESTS THIS TABLE WILL 
SELECT THE OPTIONAL CACHE TESTS. ($SWREG=100) 
AND INHIBIT ITERATIONS ($SWREG=4000) 


2. — TABLE ‘B' IS USED FOR APT QV MODE WHILE RUNNING ON A 
MANUFACTURING QV STATION. 
IT ACCOMPLISHES WHAT ETABLE ‘A* DOES BUT ADDITIONALLY 
SUPRESSES TYPEOUTS. (SENVM=240) 


3. ETABLE ‘C* IS USED FOR APT QV OR RUNTIME MODES WHILE RUNNING 
ON SYSTEMS OTHER THAN MFG. QV STATIONS. THIS TABLE DESELECTS 
THE OPTIONAL CACHE TESTS. 


1ST PASS LONGEST ADDITIONAL 
RUN TIME TEST TiME RUN TIME 
10 5 0 
nike oni — TABLES Caan 
A B C 
F -MODE /S-MODE 200/000 240/001 240/001 
(SENVM/$ENV ) 
SWITCH REGISTER 1 004100 0004100 004000 
(SSWREG) 
SWITCH REGISTER 2 000000 000000 


000000 
CPU TYPE/OPT IONS 00/0000 00/0000 00/0000 











ERRORS 


SEQ 0009 





















6.1 ERROR HALTS AND DESCRIPTION 


WHEN AN ERROR IS DETECTED AN ‘ERROR’ (EMT) 

INSTRUCTION IS EXECUTED AND THE ‘ERROR HANDLER ROUTINE’ 
CHECKS THE SWITCH REGISTER FOR MODE SELECTED. 

THE PROGRAM WILL: 

HALT ON ERROR IF SW15=1 


INHIBIT ERROR TYPE OUT IF SW13=1 
RING BELL ON ERROR IF SwW10=1 
LOOP ON ERROR IF Sw9=1 


FRROR RECOVERY 


IF SWO9=1, THE PROGRAM WILL LOOP BACK TO 

THE POINT WHERE THE INSTRUCTION THAT CAUSED THE ERROR WAS 
EXECUTED, WITHOUT ALLOWING ANY OF THE CONDITIONS TO CHANGE. 
THIS WILL PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP. 

IF SWO9=0, EACH ERROR WILL BE REPORTED AND 

LOGGED AND, AT THE END OF EACH TEST, A SUMMARY OF ALL ERRORS 
OCCURRING IN THAT TEST WILL BE PROVIDED. THE SUMMARY 
CONSISTS OF THE LOGICAL AND AND OR OF THE ADDRESS AND/OR 
DATA THAT WAS WRONG. 


o 
. 
nN 


SAMPLE ERROR TYPE OUTS 
SEE "‘SERRTB:'* FOR SAMPLE ERROR TYPEOUTS. 


6.3.1 MULTIPLE TYPE ERRORS 


THE FOLLOWING REGISTERS TIMED OUT WHEN REFERENCED 
REG.ADR TESTNO ERRORPC 


oO 
. 
ww 





lelelelelelelelelelaile) 
pas pe few Pe P= Pe P= Pe PP ew 
PAPA AAAI 
POMMMMMMOMUNNOPO 
(ALNIANIWANIA ALA AAA 
PONPIMPOPGNPINPIMIMONMO MONON 


170376 

SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
REGADRS REGADRS 

"OR" “AND’* #ERRORS TESTNO ERRORPC 

170376 170210 32 000001 010530 


RESTRICTIONS 


STARTING RESTRICTIONS 
NONE 

OPERATING RESTRICTIONS 
NONE 


SEQ 0010 





B.2 


MISCELLANEOUS 


EXECUTION TIME 


THE RUN TIME FOR A te PASS WITH NO ITERATIONS IS 
APPROXIMATELY 10 SECONDS 


ADDRESS GENERATION IN THE PDP-11/44 


THE FOLLOWING IS AN EXAMPLE OF HOW A MEMORY ADDRESS 
IS GENERATED BY THE UNIBUS MAP, THIS ASSUMES THAT 
THE ADDRESS ORIGINATES IN THE CPU BUT THE PROCESS CAN 
APPLY TO ANY UNIBUS ADDRESS, STARTING AT LINE C2. 


DESCRIPTION OF LINES: 
A: VIRTUAL ADDRESS (16 BITS) 
Al: UPPER 3 BITS OF VIRTUAL ADDRESS, USED TO 
SELECT A PAGE ADDRESS REGISTER (PAR) 
A2: LOWER 13 BITS OF VIRTUAL ADDRESS, ADDED TO 
SELECTED PAR 


B: PAGE ADDRESS REGISTER (16 BITS), IN ADDITION PROCESS THIS GETS 
LEFT SHIFTED 6 BITS BEFORE ADDITION TO A2 


Cs ee oF eae CREATED BY MEMORY MANAGEMENT, (22 BITS) 


VIRTUAL ADDRESS 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 
. PAGE NUMBER (0-7) 15 14 13 
. OFFSET 12 11 10 09 08 07 06 05 04 03 02 01 
P.A.R.CPAGE NO.J + 15 14 13 12 11 10 09 08 07 06 05 04 03 O02 01 00 
PHYSICAL ADDR. 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 O02 01 
17XXXXXK=> U.B.ADR. 21 20 19 18 
. MAPPING REG.NO. (0-36) 17 16 15 14 13 
OF FSET 172 11 10 09 08 07 06 05 04 03 O02 01 
MAP REG.[NO. J + 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 
PHYSICAL ADDR. 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 2 01 


UPPER 4 BITS ARE ALL ONES THEN BITS <17:00> GO OUT ON UNIBUS 


C2: IF MAP RELOCATION IS ENABLED THEN BITS <17:13> SELECT ONE 
OF THE 36 (OCTAL) MAP REGISTERS 


(3: LOWER 13 BITS OF UNIBUS ADDRESS, ADDED TO SELECTED MAP REGISTER 


D: MAP REGISTER (22 BITS), ADDED TO BITS <12:00> OF UNIBUS ADDRESS 
FE: PHYSICAL ADDRESS GENERATED BY UNIBUS MAP AND SENT TO THE CACHE. 


SEQ 0011 


PROGRAM DESCRIPTION 


THE +. 2 = LISTING, CKKUAAQ.SEQ, HAS A PARAGRAPH DESCIRBING 
EACH OF THE TESTS. THE PARAGRAPH WILL INDICATE IF THE TEST IS 
RUN CONDITIONALLY ON THE STATUS ON THE CACHE CONTROL REGISTER. 


SEQ 0012 | 


CKKUAAO 11/44 UBI MAP 


219 


220 


221 
222 


001100 
001100 
000700 
000600 


104000 


000004 
177776 
177776 
177774 
177772 


MACRO M1111 


20=SEP=79 11:20 PAGE 51 


-TITLE CKKUAAO 11/44 UBI MAP 
;*COPYRIGHT (C) OCT 1979 
:*DIGITAL EQUIPMENT CORP. 

; #MAYNARD MASS. 01754 


: #PROGRAM BY JOHN W. CIUKAJ 
THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
>*PACKAGE (MAINDEC-11=DZQAC-A5). 
-SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 
15 HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 
INHIBIT ITERATIONS 
ERROR 
OR 
LOOP ON TEST IN SWR<5:0> 
INHIBIT MULTIPLE ERROR TYPEOUTS 
SELECT CACHE-CIS TESTS 
-SBTTL BASIC DEFINITIONS 


he onl | ADDRESS OF THE Ta tka POINTER *** 1100 *** 


BeBe Be Be Be Be Be Be Be Be He Be 
sep epepeepeneeaennee 


ANWOSO—NWSE 
@ 
m 
“a 
- 


ST ACK= 1100 FIRST ADDRESS OF THE STACK 
KERSTK= STACK «KERNEL STACK 
CUPSTK= STACK=200 7; SUPERVISOR STACK 
USESTK= STACK-300 77,USER STACK 
ERROR=EMT 
SCOPE=I0T 
PS= hd. 7zPROCESSOR STATUS WORD 
W=! 

STKLMT= 177774 77 STACK LIMIT REGISTER 
PIRQ= 177772 ; PROGRAM INTERRUPT REQUEST REGISTER 
7 SWR 177570 :7%* SWITCH REGISTER 
:DISPLAY= SWR yu** 

deals | inane DEFINITIONS 
HT= 11 ;CODE FOR oem. TAB 
LF= 12 S:CODE LINE FEED 

(R= 15 7:CODE CARRIAGE RETURN 

CRLF = 200 :: CODE FOR CARRIAGE RETURN-LINE FEED 
7 *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= x0 7; GENERAL REGISTER 
R1= %1 > GENERAL REGISTER 
R2= %2 : ;GENERAL REGISTER 
R3= %3 7; GENERAL REGISTER 
R4= %4 7 GENERAL REGISTER 
RS= x5 7 GENERAL REGISTER 
R6= %6 7 GENERAL REGISTER 


R7= %7 3 :GENERAL REGISTER 


SEQ 0013 
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SEQ 0014 
000000 R10=RO 
000001 R11=R1 
000002 R12=R 
000003 R13=R 
000004 R14=R4 
0v0005 R15=R5 
900006 SP=R6 
000006 KSP=SP 
000006 SSP=SP 
000006 USP=SP 
000007 PC=R7 
s*PRIORITY LEVEL DEFINITIONS 
= ; PRIORITY LEVEL 0 
000040 PR1= 40 ; PRIORITY LEVEL 1 
000100 PR2= 100 : PRIORITY LEVEL 2 
000140 PR3= 140 s PRIORITY LEVEL 3 
000200 PR4= 200 7 7PRIORITY LEVEL 4 
000240 PRS= 240 : PRIORITY LEVEL 5 
000300 PR6= 300 s PRIORITY LEVEL 6 
000340 PR7= 340 s PRIORITY LEVEL 7 
z*' "SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 SW15= 100000 
040000 Sw14= 
020000 Sw13= 20000 
010000 SWi2= 10 
000 Sw11= 4000 
0020C0 Sw10= 2000 
001000 SwO09= 
000400 SwO8= 400 
000200 SwO7= 200 
000100 SwWO6= 100 
0 SwOS= 40 
000020 Sw04= 20 
000010 SwO3= 10 
: SWO2= 4 
000002 SwOl= 2 
000001 SwooO= 17 
+000 SwS=Sw09 
SwW8=Sw08 
006200 SwW7=Sw07 
000100 SW6=SW06 
A SwW5=SW05 
000020 SW4=SW04 
000010 SwW3=Sw03 
000004 SwW2=Sw02 
000002 SwW1=SwW01 
000001 Sw0=Sw00 
;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
040000 BIT14= 40000 
020000 BIT13= 20000 
010000 BIT12= 10000 
004000 BIT11= 4000 
2000 BIT10= 2000 


mca 


CKKUAAO 11/46 UB] MAP MACRO M1111 


BASIC DEFINITIONS 


177752 


177760 
177762 


177764 
177766 


; *BASIC Patel TRAP VECTOR _ADDRESSES 
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BITO9= 1 

BITO8= 400 

B1T07= 200 

BITO6= 100 

BITOS5= 40 

BITO4= 20 

BIT93= 10 

BITO2= 4 

BITOI= 2 

BITOO= 1 
BIT9=BITO9 
81T8=B1T08 
BiT7=B1T07 
B1T6=B1T06 
B1T5=B1T05 
B1T4=B1T04 
B1T3=B1T03 
BIT2=BITO2 
BIT1=B1T01 
B1T0=81T00 

ERRVEC= 

RESVEC= to 

TBITVEC=14 

TRIVEC= 14 

BPTVEC= 14 

IOTVEC= 20 

PWRVEC= 24 

EMTVEC= 30 

TRAPVE C=34 

TKVEC= 60 

TPVEC= 64 


CACHVEC=114 
PIRQVEC=240 


MMVE C= 
- SBTTL 


HITMIS 


. SBTTL 


SIZELO 
SIZEHI 


SYSTID 
CPUERR 


ee ee 


250 


ME OUT AND OTHER ERRORS 
:SRESERVED AND ILLEGAL INSTRUCTIONS 


3: TRACE TRAP 

; BREAKPOINT TRAP (BPT) 

33 INPUT/OUTPUT TRAP (IOT) **SCOPE** 
;sPOWER FAIL 

3; EMULATOR TRAP (EMT) **ERROR** 

3‘ 'TRAP"’ TRAP 


3: TTY KEYBOARD VECTOR 

sz TTY PRINTER VECTOR 

3:CACHE ERROR INTERRUPT VECTOR 

; PROGRAM INTERRUPT REQUEST VECTOR 
; MEMORY MANAGEMENT VECTOR 


CACHE REGISTER DEFINITIONS 


177740 


177752 


;;LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
;;UPPER SIX BITS GF ADDRESS THAT CAUSED ERROR 
3;CACHE ERROR REGISTER 
: ¢MEMORY CONTROL REGISTER 

;MEMORY MAINTENENCE REGISTER 
SZHIT MISS REGISTER ‘1'* IMPLIES HIT IN CACHE 


CPU REGISTER DEFINITIONS 


177760 
177762 


177764 
177766 


;MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
£310 GET TO THE LAST 32 WORDS OF MEMORY 
HIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
CURRENTLY ALL ZERO 
SESYSTEM ID REGISTER 
;-CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 


SEQ 0015 


maa 
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CPU REGISTER DEFINITIONS SEQ 0016 


77 THE TRAP TO ERRVEC (000004) 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 


> *MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 


177572 MMRO= 177572 
177574 MMRI= 177574 
177576 MMR2= 177576 
172516 MMR3= 172516 
177572 SRO=MMRO 
177574 SR1=MMR1 
177576 SR2=MMR2 
172516 SR3=MMR 3 
;*USER "'I'' PAGE DESCRIPTOR REGISTERS 
177600 UIPDRO= 177600 
177602 UIPDR1= 177602 
177604 UIPDR2= 177604 
177606 UIPDR3= 177606 
177610 UIPDR4= 177610 
177612 UIPDRS5= 177612 
177614 UIPDR6= 177614 
177616 UIPDR7= 177616 
;*USER 'D'' PAGE DESCRIPTOR REGISTORS 
177620 UDPDRO= 177620 
177622 UDPDR1= 177622 
177624 UDPDR2= 177624 
177626 UDPDR3= 177626 
177630 UDPDR4= 177630 
177632 UDPDR5= 177632 
177634 UDPDR6= 177634 
177636 UDPDR7= 177636 
,*USER ‘'I'' PAGE ADDRESS REGISTERS 
177640 UIPARO= 177640 
177642 UIPAR1= 177642 
177644 UIPAR2= 177644 
177646 UIPAR3= 177646 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
177654 UIPAR6= 177654 
177656 UIPAR7= 177656 
;*USER ‘D*' PAGE ADDRESS REGISTERS 
177660 UDPARO= 177660 
177662 UDPAR1= 177662 


177664 UDPAR2= 177664 





mo 





; Ia WAN creas nS PO) 
CKKUAAO 11/46 UB] MAP MACRO M1111 20=SEP=79 11:20 PAGE 51-4 
MEMORY MANAGEMENT DEFINITIONS SEQ 0017 ¢ 

177666 UDPAR3= 177666 

177670 UDPAR4= 177670 

177672 UDPARS= 177672 


177674 UDPAR6= 177674 
177676 UDPAR?= 177676 
; "SUPERVISOR “'I'' PAGE DESCRIPTOR REGISTERS 
172200 SIPDRO= 172200 
172202 SIPDRI= 172202 
172204 SIPDR2= 172204 
206 SIPDR3= 172206 
172210 SIPDR4= 172210 
172212 SIPDRS= 172212 | 
172214 SIPDR6= 172214 
172216 SIPDR7= 172216 
:*SUPERVISOR ‘D'' PAGE DESCRIPTOR REGISTERS | 
172220 SDPDRO= 172220 
172220 SDPDRI= 172222 
172224 SDPDR2= 172224 
172226 SDPDR3= 172206 
172230 SDPDR4= 172230 
172232 SDPDRS= 172232 
172234 SDPDR6= 172236 
172236 SDPDR7= 172236 
;*SUPERVISOR "'I'' PAGE ADDRESS REGISTERS 
172240 SIPARO= 172240 
172242 SIPARI= 172262 
172244 SIPAR2= 172244 
172246 SIPAR3= 172046 
172250 SIPAR4= 172250 
172252 SIPARS= 172252 
172254 SIPARG= 172254 
172256 SIPAR7= 172256 
; “SUPERVISOR ‘D'' PAGE ADDRESS REGISTERS 
172260 SDPARO= 172260 
172262 SDPARI= 172262 
172264 SDPAR2= 172264 
172266 SDPAR3= 170266 
172270 SDPARG= 172270 
172272 SDPARS= 172272 
172274 SDPAR6= 172274 
172276 SDPAR7= 172276 
;*KERNEL "'I'' PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPDRI= 172302 
172304 KIPDR2= 172304 
172306 KIPDR3= 172306 
172310 KIPDR4= 172310 
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.SBTTL UNIBUS MAP REGISTER DEFINITIONS 


MEMORY MANAGEMENT DEFINITIONS SEQ 0018 | 
172312 KIPDRS= 172312 | 
175314 KIPDR6= 172314 
172316 KIPDR7= 172316 
:*KERNEL ‘D'' PAGE DESCRIPTOR REGISTERS 
172320 KDPDRO= 172320 
172322 KDPDR1= 172322 
172324 KDPDR2= 172324 
172396 KDPDR3= 172326 
172330 KDPDR4= 172330 
172332 KDPDRS= 172332 
173334 KDPDR6= 172334 
172336 KDPDR7= 172336 
s*KERNEL ‘'I'' PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 
172346 KIPARS= 172346 
172350 KIPARG= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 KIPAR7= 172356 
s*KERNEL ‘D'’ PAGE ADDRESS REGISTERS | 
172360 KDPARO= 172360 
172362 KDPART= 172362 
172364 KDPAR2= 172364 
172366 KDPAR3= 172366 
172370 KDPARG= 172370 
172372 KDPARS= 172372 
172374 KDPAR6= 172374 ae 
172376 KDPAR?= 172376 
>*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXx' 
:*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED *MAPHXx' 

176200 MAPLOO = 170200 

170202 MAPHOO = 170202 

170204 MAPLO] = 170204 

170206 MAPHO] = 170206 

170210 MAPLOZ = 170210 

170212 MAPHO2 = 170212 

170214 MAPLOS = 170214 

170216 MAPHO3$ = 170216 j 

170220 MAPLO4 = 170220 

170222 MAPHO4 = 170222 
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UNIBUS MAP REGISTER DEFINITIONS SEQ 0019 


170226 MAPLOS = 170226 
170226 MAPHOS = 170226 
170230 MAPLO6 = 170230 
170232 = 170232 
1702% MAPLO? = 170234 
170236 MAPHO? = 170236 
170240 MAPL10 = 170240 
170242 MAPH10 = 170242 
170244 MAPL11 = 170244 
170246 MAPH11 = 170246 
170250 MAPL12 = 170250 
170252 MAPH12 = 170252 
170254 MAPL13 = 170254 
170256 MAPH13 = 170256 
170260 MAPL14 = 170260 
170262 MAPH14 = 170262 
170264 MAPL15 = 170264 
170266 MAPH15 = 170266 
170270 MAPL16 = 170270 
170272 MAPH16 = 170272 
170276 MAPL17 = 170274 
170276 MAPH17 = 170276 
170300 MAPL20 = 170300 
170302 MAPH20 = 170302 
170304 MAPL21 = 170304 
170306 MAPH21 = 170306 
170310 MAPL22 = 170310 
170312 MAPH22 = 170312 
170314 MAPL23 = 170314 
170316 MAPH23 = 170316 
170320 MAPL24 = 170320 
170320 MAPH24 = 170320 
120324 MAPL25 = 170324 
170326 MAPH25 = 170326 
170330 MAPL26 = 170330 
170332 MAPH26 = 170332 
170334 MAPL27 = 170334 
170336 MAPH27 = 170336 
170340 MAPL30 = 170340 
170342 MAPH30 = 170342 
170344 MAPL31 = 170344 
170346 MAPH31 = 170346 
170350 MAPL32 = 170350 
170352 MAPH32 = 170352 
170354 MAPL33 = 170354 
170356 MAPH33 = 170356 
1 = 170360 
1 = 170362 
1 = 170364 
= 170366 
= 170370 
= 170372 
= 170374 
= 170376 
MAPL O=MAPL 00 
MAPHO=MAPHOO 
MAP| 1=MAPLO1 


4-4 
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224 


225 


000052 


000137 
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010000 
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MAPH1 =MAPHO1 


MAPL4=MAPL 04 
MAPH4 =MAPHOS 
MAPL5 =MAPL a3 


MAPL 7=MAPLO7 
MAPH7=MAPHO7 


-SBTTL TRAP CATCHER 


-=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A *'.+2,HALT"' 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


.SBTTL STARTING ADDRESS(ES) 

o> 00 

JMP @4START 72JUMP TO STARTING ADDRESS OF PROGRAM 
PLEA AREER ERATE ERE EERE EERE EERE RETR EEE ER ERE RE Re 
.SBTTL ACT11 HOOKS 


cote FOLLOWING LOCATIONS ARE SETUP TO BE USED WITH ACT1i 
 SLOCATION 46 WILL CONTAIN THE ADDRESS OF THE LOCICAL 

;*END OF THE PROGRAM. 

;*LOCATION 52 IS USED TO SPECIFY PROGRAM OPERATING REQUIREMENTS 
;*AND/OR RESTRICTIONS. THIS IS ACCOMPLISHED BY SETTING VARIOUS BITS 
*TO A ONE OR A ZERO. THE BITS USED AND THERE MEANING ARE: 


BIT 15=1 PROGRAM SHOULD BE POWER FAILED WHILE RUNNING 
=0 NO POWER FAIL DESIRED 


i BIT 14=1 PROGRAM RUN TIME IS MEMORY SIZE DEPENDENT 
. =0 RUN TIME IS NOT MEMORY SIZE DEPENDENT 


BITS 13-0 MUST BE ZERO'S 
wr Nai 

“WORD $ENDAD 
-=52 


3;SAVE LOCATION COUNTER 

3:SET LOCATION COUNTER 

23 SET LOC.46 TO ADDRESS SENDAD 
SET LOCATION _— ER 

-WORD 0 :3SET LOC.52 TO ZERO 

. =$SVPC 32 RESTORE COCATION COUNTER 


SEQ 0020 | 


Qa- 


ACTY 


CKKUAAO 11/44 UBI MAP 
HOOK S 


226 


001102 


EEEEEEEEEEEE 
Seer ener 


0011C0 


000 
000 
000000 
0600000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
0 
177560 
177562 
177564 
177566 
002 
012 


177570 
177570 


000000 
000006 
000000 


000000 
000000 
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000000 000000 


377 377 


fF TRAAAAAAAAARAAAAAAAAROKAAEKAARAERAAAAAARAAAARERAARAARAHAARAARAENS 


-SBTTL COMMON TAGS 


;*THIS TABLE y nis VARIOUS COMMON STORAGE LOCATIONS 
7*USED IN THE PROGRAM 


SCMTAG: 73 START OF COMMON TAGS 
;$PASS: .WwORD 0 32** CONTAINS PASS COUNT 
$TSTNM: BYTE 9 > CONTAINS THE se 4 A seme 
SERFLG: .BYTE OQ : CONTAINS ERROR F 
SICNT: . > > CONTAINS SUBTEST TTERATION COUNT 
$LPADR: .WORD 0 ;: CONTAINS SCOPE LCOP 
$LPERR: .WORD 0 3: CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 7: CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ; CONTAINS ITEM CONTROL BYTE 
$ : .BYTE 1 ; CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 3: CONTAINS PC OF LAST ee INSTRUCTION 
$GDADR: .WORD 0 ;: CONTAINS OF ‘GOOD’ DAT 
$BDADR: . D 0 ;: CONTAINS OF ‘BAD' DATA. 
SGDDAT: dD 6G hey "GOOD" DATA 
S$BDDAT: .WORD 0 : TAINS ' * DATA 

-WORD 0,0,0 ; ;RESERVED--NOT TO BE USED 
$TKS: 177560 TTY KBD STATUS 
$TKB: 177562 TITTY KBD BUFFER 
$TPS: 177564 ii TTY PRINTER STATUS REG. 
$TPB: 177566 eTTy PRINTER BUFFER REG. 
$NULL: .BYTE 0 ; CONTAINS NULL CHARACTER FOR FILLS 
S$FILLS: .BYTE Py + = CONTAINS # OF FILLER CHARACTERS are 
$FILLC: .BYTE 12 a een FILL CHARS. AFTER A ‘LINE FEED’ 
$TPFLG: .BYTE 0 2’ ‘TERMINAL AVAILABLE'’ FLAG (B1T<07>=0=YES) 
SWR: . WORD 177570 soe 
DISPLAY: .WORD 177570 5a" 
SREGAD: .WORD 0 7: CONTAINS THE FROM 

:: WHICH ($REGO) WAS OBTAINED 

REPT $CM3 
$REGO: .WORD 0 :: CONTAINS (($REGAD) +0) 
$REG1: .WORD QO : CONTAINS (($REGAD) +2) 
$REG2: .WORD 0 : CONTAINS (($REGAD) +4) 
$REG3: .WORD 0 : CONTAINS (($REGAD) +6) 
$REG4: WORD 0 : CONTAINS (($REGAD) +10) 
a S -WORD 0 ; CONTAINS (($REGAD)+12) 
$TMPO: .WORD OQ : USER DEFINED 
$IMP1: .WORD 0 ; USER DEFINED 
$TMP2: .WORD 0 ; USER DEFINED 
$TMP3: .WORD 0 7 USER DEFINED 
$TMP4: .WORD 0 ; USER DEFINED 
$TMP5: .WORD 0 uc DEF INED 
$TIMES: O : MAX. NUMBER OF ITERATIONS 
SE SCAPE :0 : ESCAP — ON ERROR 


$RBFLL: .ASCIZ <207><377><377> =:CODE FOR BELL 


a es me NN 


SEQ 0021 


lo oF} 





CKKUAAO 11/44 UBI MAP MACRO M1111 


COMMON TAGS 





001324 


077 

015 

O12 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000200 
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PADRSL: 
PADRSH: . 


HIGEST: . 


LREGL: 
LREGU: 
HREGL : 
HRE GU: 


ERRCNT: 


CNTR: 


NXTTST: . 


DATA: 


/?/ 
<15> 
<12> 
0 


DOVDOVOVVIOOVVOVOOOOVOCOSCO CO CO CO OG OG COONCOCO CO 


; QUESTION MARK 
yee: RETURN 


D 
LOWER 16 2% OF A 22 BIT 
PE OUT. 


ZADDRESS GENERATED FOR TYPE OUT 

;LOGICAL AND OF FAILING ADDRESSES 
SLOGICAL OR OF go es > aati 
:LOGICAL AND OF BAD eH 

;LOGICAL OR OF BAD DAT 

;LOGICAL AND OF PATTERN LOADED 

;LOGICAL OR OF PATTERN LOADED 

;HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
;LOWEST USEABLE MAP REGISTER TO RESPOND 
;HOLDS NUMBER TO PUT IN PAR TO CAUSE THE 
;HIGHEST USEABLE MAP REGISTER TO RESPOND 
;HOLDS 1/0 PAGE ADDR OF LOW 16 BITS OF 
THE LOWEST USEABLE MAP REGISTER 

;HOLDS 1/0 PAGE ADDR OF HIGH 16 ER OF 


MULTIPLE ERROR ERROR COUNTER 
AUXILIARY COUNTER 

FLAG TO rghit | y Ay PROGRAM PASS N 
sHOLDS TEST NUMBER FOR ERROR TYPE OUTS 
HOLDS THE EXPECTED. CPU ERROR CODE 
;HOLDS RECEIVED CPU ERROR CONDITION 
;HOLDS RECEIVED PARITY ERROR CONDITION 
;HOLDS CONTENTS OF CONTROL REGISTER 
;HOLDS CONTENTS OF MAINTENENCE a 
;HOLDS PC OF INST THAT CAUSED T 

;HOLDS THE RETURN ADDRESS AFTER A A TRAP 


; HOLD 

[WILL HOLD P.A.R. DATA FOR TOP OF MEMORY 
RETRY FLAG IN CASE OF PARITY ABORTS 
;LOCATION TO HOLD ESCAPE ADDRESS ON 
SPARITY ERRORS. 

[PATTERN TO BE USED TO LOAC INTO MEMORY 


SEQ 0022 | 


An 





¢ 


KKUAAO 11/44 
OMMON TAGS 


001326 
227 
228 001326 
229 330 


239 
240 001346 
241 001350 
242 
243 001352 
244 001354 
245 


246 
247 001356 
248 001360 


254 001366 
255 001370 
256 
257 001372 
258 001374 
259 
260 
261 001376 
$o¢ 091400 


26 
264 001402 
265 001404 
266 


UBI MAP MACRO M1177 


021554 


030100 
032574 
033272 
022115 
030264 
032616 
033303 
022223 
030370 
032632 
033310 
022365 
030460 
032646 
033315 
022456 
030460 


032646 
033315 
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fF MAAOARAAEAAAAAREAAARERAEERAARAARARARRRARRAARARRERREARERARANERERARR 


.SBTTL ERROR POINTER TABLE 


;* THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
[*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
[*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE at # IS PERTINENT. 


+ NOT El: IF SITEMB IS O THE ONLY PERTINENT DATA IS ($ERRP 
s*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS ERPLAINED AS FOLLOWS: 
* —EM ;zPOINTS TO THE ERROR MESSAGE 
;* DH ::;POINTS TO THE DATA HEADER 
:* OT :zPOINTS TO THE DATA 
3* DF ::POINTS TO THE DATA FORMAT 
S$ERRTB 
: i TEM! 
EM) ;NOT THE CORRECT CPU TRAP CONDITION THRU ERRVEC (#004) 
DH1 sRECEIVD EXPECTD TESTNO PC AT ABORT 
DT1 : PCPUER, CPUEXP, TESTNO,BADPC ,0 
DF1 ; 3 o 9, @ 
ZITEM 2 
2 ;UNEXPECTED CPU TRAP THRU ERRVEC (4004) 
DH2 sRECEIVD TESTNO PC AT ABORT 
DT2 =PCPUER, TESTNO,BADPC 
DF2 ; ©, & 8 
ZITEM 3 
5 ;MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS 
DHS :STATUS AUTOI/D VIRTADR 
[REGISTR REGISTR REGISTR TESTNO PC AT ABORT 
DT5 = PMMRO, PMMR1,PMMR2, TESTNO,BADPC ,0 
DFS : @, 0; 0 
ITEM 4 
EM6 ; SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
DH6 ; REGADRS REGADRS 
“‘OR"’ “‘AND'' #ERRORS TESTNO ERRORPC 
DT6 * ADDROR, ADRAND ,ERRCNT, TESTNO, SERRPC 0 
DF6 : 0. 0.1, 0, 6 
s ITEM 5 
EM10 ; SUMMARY OF MAP REGISTERS NOT HOLDING ZERO IN LOW 16 BITS 
DH10 ;REGADRS REGADRS RECEIVD RECEIV VD 
“"AND’' = “'‘OR" “"“AND'' #MERRORS TESTNO ERRORPC 
DT10 *ADDROR, ADRAND , DATAOR ,DATAND ,ERRCNT, TESTNO, SERRPC .0 
DF10 . &, 9, 6. 6. ‘. 0. 0 
ZITEM 6 
—EM11 : SUMMARY OF MAP REGISTERS NOT HOLDING ZERO IN UPPER 6 BITS 
DH10 ;REGADRS REGADRS RECE IVD RECEIVD 
OR" "AND" #MERRORS TESTNO ERRORPC 
DT10 ;ADDROR, ADRAND , DATAOR ,DATAND ,ERRCNT,, TESTNO, SERRPC ,0 
DF10 ; 0, & 6, 0, t, 0, 0 


SEQ 0023 


=—n 


267 
268 001406 
269 001410 


270 
271 001412 
$76 001414 


4 
275 001416 
276 001420 
277 
278 001422 
279 901424 
280 
281 
282 001426 
283 001430 
284 


285 001432 
286 001434 


289 001436 
290 001440 


292 001442 
293 001444 


296 001446 
297 001450 
298 
299 001452 
300 001454 


303 001456 
304 


305 0601460 
306 001462 
001464 


See 


QAWnSWHY-O 
8 
Ss 
| 
NM 


WNWWNWWNWNWAWNWIWW 
ee a et od ot a es 


00 
001502 
001504 


ae) 
m—-OOON 


OR 
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022550 
030610 
032666 
033324 
022636 
030610 
032700 
033324 
022730 
030666 
032712 
033330 
023023 
031005 
032730 
033336 
023127 
031005 
032730 
033336 
024206 
031333 
033010 
033357 
024434 
031427 
033032 
033366 
024610 
031214 


032772 
033351 


m 
= = 


= 


! 
Ww ~~ WWM NAAM WW WNW 


_—_——_———_ 
SEQ 0024 
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: POSSIBLE ERROR IN MAP REGISTER DATA PATH (MAP REG 00) 


COUNT COUNT 
ZENPECTD RECEIVD TESTNO ERRORPC 
$REG2, ane , TESTNO, SERRPC ,0 


: * 0, o 


10 
;NOW PROBABLE ERROR IN MAP REGISTER DATA PATH (MAP REG 20) 
[COUNT COUNT 
sEXPECTD RECEIVD TESTNO ERRORPC 
> $REG3, eel - TESTNO, SERRPC ,0 


7 
° * o e 


; SUMMARY OF DUAL ADDRESSING ame ON LOADING MAP REGISTERS 

;REGLOAD REGLOAD REGDUAL REGDUA 
*‘OR'' *"AND"* FAND' MERRORS TESTNO 

;ADDROR,, ADRAND , We ete -DATAND ,ERRCNT , TESTNO,0 


e o ’ * ° 


; SUMMARY OF COUNT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS 
;MAPREG MAPREG EXPECTD EXPECTD RECEIVD RECEIVD 

"OR'’ —""AND** "OR" “"AND'’ = *‘OR"' ""AND'’ #ERRORS TESTNO 
; ADDROR , ADRAND ,PATTOR, —e ,DATAOR ,DATAND ,ERRCNT , TESTNO,0 


’ a o e o e e 


; SUMMARY OF COUNT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS 
;MAPRE G MAPREG EXPECTD EXPECTD RECEIVD mee IP 
ae “AND'" "OR" #ERRORS TESTNO 


 ADDROR , ADRAND , PATTOR, ee ,DATAOR ,DATAND, ERRCNT, TESTNO,O 


Py 0, 0, e ’ 6, ° e 


;REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT 
DIFFERENT THAN 770200 

;ADDRUSED BITDIFF TESTNO ERRORPC 

“hte tag War tectonic 





: T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF 
7SO I°LL JUMP TO THE SIZE JUMPER TEST FOR VERIFICATION 
:TESTNO ERRORPC 
a ES ENG SEARS 8 


; SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH 
ZEXPECTD EXPECTD RECEIVD RECEIVD 

"OR" AND'' —_*'‘OR"* “"AND'' #ERRORS TESTNO 
[PATTOR,PATAND, + wath .DATAND ,ERRCTN, TESTNO,0 


Ps e ’ e e e 








vm 


324 001506 


001566 
366 001570 
368 001572 
369 001574 

0 
372 001576 
hg 001600 
375 001602 
ers 001604 


8 
379 001606 
380 001610 
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024702 
031427 
033032 
033366 


024754 


031427 
033032 
033366 


031507 
033052 
033374 


025736 
031547 
033064 
033400 
026033 
031214 
033074 
033403 
026136 
031641 
033112 
033411 
026231 
031721 
033124 
033415 


026313 
032001 


MACRO M1111 
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EM33 


sITEM 24 
EM37 
DH23 


DT37 
DF 37 


7 ITEM 25 
EM4O 
DH40 


DT40 
DF40 


ITEM 26 
EM41 
DH41 


DT41 
DF41 


s ITEM 27 
EM42 
DH42 


2 


SEQ 0025 


UNIBUS MAP IS RELOCATING WHEN NOT ENABLED 
TES TNO ERRORPC 
4 id - SERRPC ,0 


’ 


; CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL 
ADDRESS BITi4 IS STUCK LOW, MUST RESTART PROGRAM 
:1F YOU DON'T LOOP ON THIS PROBLEM. 


:TESTNO ERRORPC 
ber psombcn: 


’ 


;THE SIZE JUMPERS ON THE UNIBUS MAP ARE NOT SET 


IN THEIR DEFAULT POSITION. THIS WOULD ALLOW UNIBUS 
; ADDRESSES 000000 TO 757776 TO oo MAIN MEMORY 


SLOWEST ,HIGEST, TESTNO, SERRPC ,0 
4, 4, 0, 0 


;MAP REGISTER UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST 
:TESTNO ERRORPC UNIBUS ADDRESS OF MAP REGISTER UNDER TEST 


te We ng attchcemtehotn: 


e e 


; SUMMARY OF UNIBUS ADDRESS ERRORS, WITH MAP RELOCATION DISABLED 

ZEXPECTD EXPECTD RECEIVD RECEIVD 
"‘OR"’ *"AND'' ‘AND'’ #MERRORS TESTNO 

ZADDROR. ee -DATAND ,ERRCNT , TESTNO 


;MAIN MEMORY TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 


. 
° 


;CONDITN CONDITN 
: EXPECTD RECEIVD TESTNO ERRORPC 
; CPUE XP et - TESTNO, SERRPC ,0 


* e ° 


;RELOCATION THROUGH THE MAP WAS NOT CORRECT, FULL ADD. 
;CORRECT ADDRESS 
ADDRESS FETCHED TESTNO ERRORPC 


RELOCATION THRU THE MAP WAS NOT CORRECT, 
; CORRECT 


sOAEGe ARES) . TESS SEMIS 


e e e 


CARRY PROPAGATION 
EXPECTD RECEIVD 


on 


382 001612 
383 001614 
384 

385 

a5 001616 
388 001620 
001622 
001624 
001626 
396 001630 
397 

398 001632 
399 001634 
00 . 

401 

402 001636 
40 

404 001640 
406 001642 


434 gorers 


436 
437 001702 
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033136 
033421 
026473 
031641 
033112 
033411 
026626 
031721 
033124 
033415 
026750 
032001 


033136 
033421 


027270 
031214 


033074 
033403 


027327 


033426 


027403 


027456 
032171 


033174 
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D142 
DF42 


; ITEM 
EM45 


DH40 


DT40 
DF4O 


s1TEM 
EM46 


DH41 


DT41 
DF41 


Z ITEM 
EM47 


2C1 


202 


203 


SEQ 0026 


sADDRESS __DATA FROM UB _TESTNO ERRORPC 
a 


. 
. id ° ° oe 


;MAIN MEMORY TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 
; TEST BEING RUN OVER UNIBUS 

;CONDITN CONDITN 

EXPECTD RECEIVD TESTNO ERRORPC 

> CPUEXP een . TESTNO, SERRPC ,0 


. 
° Sa ° . 


RELOCATION THROUGH THE MAP WAS NOT CORRECT, FULL ADD. 
; TEST BEING RUN OVER UNIBUS 

; CORRECT ADDRESS 

ADDRESS FETCHED TESTNO ERRORPC 

Me ar ay pianemannipmeriend 


* o * 


RELOCATION THRU THE MAP WAS NOT CORRECT, CARRY PROPAGATION 
; TEST BEING RUN OVER UNIBUS 
; CORRECT +o eg sha a 
; ADDRESS FROM UB TESTNO ERRORPC 
;$REG1, SREGS. “SREG2, TESTNO, SERRPC 


e ’ ° e ’ 


; SUMMARY OF DUAL MAPPING ERRORS 
sEXPECTD EXPECTD RECEIVD RECEIVD 
"OR'' MERRORS TESTNO 


“ ADDROR, ADRAND , "sy Neste -DATAND , SERRPC , TESTNO,0 


e ° e e o e 


THIS IS THE STARTING POINT FOR ERROR MESSAGES 
3201 THRU 377. THEY ARE USED FOR MULTIPLE 
ERROR MESSAGES. 


7 THE FOLLOWING REGISTERS TIMED OUT WHEN READ 
;REGADRS TESTNO ERRORPC 
ge. HES ER TEMPS 


’ e 


THE FOLLOWING MAP REGISTERS WILL NOT CLEAR 
;REGADRS DATAREC TESTNO ERRORPC., 
> $REGO, ad - TESTNO, SERRPC ,0 


; & &..%, 
; THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP 
*MAPREG MAPREG 


TESTING DUALED TESTNO ERRORPC 
$REGO, $REG1, $TESTNO, SERRPC ,0 


on 










438 001704 
439 
440 
441 001706 
442 001710 


443 001712 
— 001714 


494 001756 
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033435 DF 203 
7 1TEM 

027551 M204 
032250 DH204 
33206 DT204 
033441 DF 204 
027631 EM205 
032330 DH205 
033224 DT205 


027700 M206 
032402 DH206 
033240 DT 206 
033454 DF 206 


. SBTTL 


Be Be Be Be Be Be 


Be Be Be . Be Be Be Be . 
Desens aesaeneenskensannee 


oO 
— 
me 


TYPE: 
000 

113700 001112 

001004 

016746 177140 

104402 
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204 






SEQ 0027 
: 0, 0. 0. 0 


; THE COUNT PATTERN THRU THE MAP REGISTERS FAILED 
;REGADRS PATTERN EXPECTD RECEIVD TESTNO ERRORPC 
Wa yar ar eet ere treme, 


. 
. o ° ’ ° ° 


;UNIBUS DATA PATH COUNT PATTERN FAILURE 
eNeel RECEIVD ADDRSLOAD TESTNO ERRORPC 
1,$REGO, y fae , TESTNO, SERRPC ,0 


. 
° ° . o ° 


;UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED 
ADDRESS ADDRESS 

sEXPECTD RECEIVD TESTNO ERRORPC 

;$REGO, er - TESTNO, SERRPC ,0 


. 0, . 


ERROR MESSAGE TYPE OUT ROUTINE 


THIS SUBROUTINE IS CALLED BY THE ERROR HANDLER TO TYPE 
THE ERROR MESSAGES. IT PICKS UP THE ITEM BYTE (SITEMB) NUMBER 


ENTRY, "EM', "DH , eT". "pF? . 
MESSAGE WHICH IS AN ASCIZ STRING. THE *DH* POINTS TO THE DATA 
HEADER WHICH IS ANOTHER ASCIZ STRING. fT é 


OF THE DATA TO BY TYPED. THE AIS 
CONTROLLED BY THE ‘DF* WHICH IS THE POINTER TO THE DATA FORMAT. 
THE DATA FORMAT IS A GROUP OF BYTES WHICH CONTAIN NUMBERS 

THAT vee} a) TO gin TYPING FORMATS. 


-16 BIT OCTAL 
~DECIMAL FORMAT 
2 -22 BIT OCTAL FORMAT. DATA IS LOWER 16 BITS OF THE 
oo ait +9 32 UPPER 6 BITS ARE ADJACENT TO LOWER 16 
3 -22 BIT OCTAL FORMAT. DATA IS THE 16 BIT VIRTUAL 
ADDRESS IN oo j- ais 


4 -18 BIT OCTAL FORMAT. DATA IS A 16 BIT NUMBER THAT 
WILL BE CONVERTED INTO A UNIBUS ADDRESS BY LEFT 
SHIFTING IT 6 BITS. 

ah RO,-(KSP) ; SAVE Ry A STACK 


LR RO : CLEAR 
MOVB a4#$1TEMB,RO [PUT ITEM NUMBER IN RO 
BNE 1$ BRANCH IF IT IS NON-ZERO 


MOV SERRPC ,-(KSP) 
13$ 


[PUT ERROR PC ON STACK FOR TYPING 
3; TYPE FAILING PC 
[GO TO RETURN 





~- 





495 001760 


502 002004 


542 002122 


549 902142 
550 
551 002144 


001404 


: 
RLS 


CKKUAAO 11/44 UB] MAP_ MACRO M1111 
ERROR MESSAGE TYPE OUT ROUTINE 


000003 
001000 


000200 


000001 


000002 


177144 


000002 


1$: 


6$: 


7$: 


8$: 
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RQ ;ADJUST ITEM NUMBER TO BE A POINTER 
#3,RO SLEFT SHIFT ITEM NO. 3 PLACES 
22$ SBRANCH IF ITEM #LESS THAN 200 


#B1T9,RO SEE IF ITEM # WAS 3Xx 
218 :BRANCH IF ITEM # WAS Onn 
AND TYPE ERROR_MESSAGE 
#SW7,aSWR [SEE IF SWITCH 7 IS UP 
20$ BRANCH IF SWITCH IS NOT UP 
SAND TYPE DATA, ON MULTIPLE ERRORS 
#4,2(KSP) SKIP ‘TYPE ,$CRLF* IF SW 7 IS UP 
; INHiBIT MULTIPLE ERROR TYPEOUTS 
13$ BRANCH TO EXIT 
#177000,RO0 7CLEAR UPPER BYTE OF RO 
#ER200+4 ,RO :POINT TO DATA TABLE ENTRY 
5$ ‘_ TYPE DATA TABLE 
#177000,RO CLEAR UPPER BYTE OF RO 
#<ER200-SERRTB>, RO sADD DIFFERENCE BETWEEN 
ITEM 1 AND ITEM 201 


GET POINTER TO ERROR MESSAGE AND TYPE IT 
IF THE POINTER IS NOT ZERO 
;ADD BASE OF ERROR TABLE 


#$ERRTB,RO 
(RO) +,2$ ;PUT MESSAGE POINTER IN TYPE STATEMENT 
3$ BRANCH IF NO ERROR MESSAGE 
TYPE ERROR MESSAGE 
0 ;POINTER TO ERROR MESSAGE 
»SCRLF TYPE CRLF 


GET THE POINTER TO THE DATA HEADER AND 
TYPE IT IF THE POINTER IS NOT ZERO 


(RO) +,4$ ;PUT HEADER POINTER IN TYPE STATEMENT 
;BRANCH IF NO DATA HEADER 
TYPE THE DATA HEADER 

0 :POINTER TO DATA HEADER 

,$CRLF TYPE CRLF 


THIS IS THE START OF THE DATA OUTPUT IF THE 
DATA POINTER IS NOT ZERO. RO POINTS TO THE 
DATA FORMAT, R1 POINTS TO THE ADDRESS OF 
THE DATA WORDS 


R1,-(KSP) SAVE R1 ON THE STACK 

(RQ) +,R1 PUT DATA TABLE POINTER IN R1 
12$ [BRANCH IF NO DATA TABLE 
(RO)+,RO PICK UP DATA Some POINTER 
(RO) ;1S THIS WORD OCTAL 

7$ NOT 16-BIT OCTAL 


BRANCH IF 
THIS IS 16 BIT OCTAL FORMAT (DF = 0) 
@(R1)+,-(KSP)  ;PUT WORD ON STACK FOR TYPING 


11$ [GET READY FOR NEXT 
#1, (RO) 31S THE WORD DECIMAL 
8$ ;BRANCH IF NOT DECIMAL 


THIS IS DECIMAL FORMAT (D 


a(R1)+,-(KSP) : ING 
‘TYPE THE WORD ON STACK AS DECIMAL 
*GET READY FOR NEXT WORD 
‘IS WORD 22-BIT PHYSICAL ADDRESS 
BRANCH IF NOT 22-BIT PHYSICAL ADDR 
THIS IS ate PHYSICAL FORMAT (DF = 2) 
(RT) +,=(KSP) :PUT ADDR OF LOW WORD ON STACK 


11$ 
#2,(RQ) 
9$ 


; TYPE THE WORD ON STACK AS 16 BIT OCTAL 
WORD 


Se 


SEQ 0028 


n— 


= 
Wwe 
~m 
— 
o 


00 
00. 
00 
00 
00 
00 
00 
00 


608 902320 
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001562 
90000 3 
000002 


000003 
000040 
0001 36 


002240 


040 


000002 
000003 


172340 
000006 


176710 
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30$: 


128: 
13$: 


000 32$: 


a 


TTL 


ee ee 
=<* sep epeeeee 


TYPVAD: 


JSR PC, $DB20 ; CONVERT NUMBER TO OCTAL ae 
WANT 8 DIGIT 


ADD #3, (KSP) 7 ONLY 

MOV (KSP) +, 30$ ;PUT POINTER AFTER ‘TYPE CALL 

TYPE TYPE ASCIZ STRING 

-WORD Q [WORD HOLDS POINTER TO ASCIZ STRING 
BR 11$ ;GET READY FOR NEXT WORD 


CMPR ss #3, (RO) ‘IS THIS A 16-BIT VIRTUAL ADDRESS 
BNE 10$ BRANCH IF NOT 16-BIT VIRT. ADDR. 
THIS IS 32-B]T VIRTUAL ADDRESS FORMAT 
KERNEL I-SPACE ASSUMED. (DF = 3) 
MOV a(R1)+,-(KSP) PUT 16-BIT VIRTUAL ADDR ON STACK 
JSR PC TYPVAD 7GO TYPE 22-BIT ADDRES S FROM 16-BIT V.A. 
BR 1§ SGET READY FOR NEXT WORD 
THIS IS FORMAT 4. DATA WORD IS A UNIBUS ADDRESS 
OUTPUT WILL BE 18-BITS WORD LEFT SHIFTED 6. 
MOV a(R1)+,-(KSP)  ;PUSH 16-B1T UNIBUS ADDRESS ON STACK 
JSR PC ,UBADDR [CONVERT TO 18-BIT UNIBUS ADDR AND TYPE 
BR 11$ “GET READY FOR NEXT WORD 


INC RQ ;POINT TO NEXT FORMAT BYTE 
TYPE -32$ : TYPE TWO SPACES 

TST (R1) 31S THERE ANOTHER WORD? 
BEQ 12$ ;BRANCH IF ALL DONE 

BR 6$ :GO BACK 4 NEXT NUMBER 
MOV (KSP)+,R1 RESTORE R 

MOV (KSP) +,RO RESTORE RO 

RTS PC [RETURN TO ERROR ROUTINE 
ww ly | ae ; TWO SPACES 

-EV 


CONVERT 16-BIT VIRTUAL ADDRESS TO 22-BIT PHYSICAL ADDRESS 


THIS ROUTINE IS CALLED BY A ‘JSR PC' AFTER THE VIRTUAL ADDRESS 
IS PUSHED ON THE KERNEL STACK. THE V.A. IS THEN LOADED INTO 
R1 AND THE UPPER 3 BITS ARE SHIFTED INTO RO TO SELECT THE 


CORRECT KERNEL 
ADDRESS ARE ADDED TO THE PAR AS THEY ARE BY MEMORY 


I-SPACE PAR. 


THE LOWER 12 BITS OF THE VIRTUAL 
MANAGEMENT 


AND THE PHYSICAL ADDRESS IS SAVED IN MEMORY TO BE CONVERTED 


TO ASCIZ AND TYPED. 


SAVREG SAVE ALL REGISTERS 

MOV 2(KSP) ,R1 ;PUT VIRTUAL ADDR IN R1 

CLR RO ;CLEAR RO FOR CALCULATIONS 

ASHC #3,RO LEFT SHIFT RO,R1 3 ie lead 

ASL RO LEFT SHIFT RO ONE MORE P 

ROR R1 RIGHT SHIFT R1 SO OFF SET” is CORRE CT 
ROR R1 [RIGHT SHIFT R 

ROR R1 RIGHT SHIFT RI 

ADD #kK IPARO ,RO FORM DESIRED PAR a . RO 

MOV (RO) ,R3 [PUT CONTENTS OF PAR IN R 

CLR R2 [CLEAR R2 FOR PHYSICAL ADDR CALCULATIONS 
ASHC #6 ,R2 LEFT SHIFT <R2,R3> 6 PLACES 

ADD R1,R3 SADD OFFSET IN R1 TO SBASe IN R3 

ADC R2 ;ADD ANY POSSIBLE CARRY TO UPPER 6 BITS 
MOV R2,PADRSH ~ UPPER 6 BITS OF ADDR IN CORE 

MOV R3,PADRSL LOWER 16 BITS OF ADDR IN CORE 

MOV #PADRSi ,~(KSP) ‘PUT BOINTER TO LOWER 16 BITS ON STACK 


SEQ 0029 


EEE aS 





a 
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609 002324 


635 002420 
636 002422 
637 002424 
638 002426 
639 
640 
641 


002430 


004767 001404 
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MAP 20-SEP=79 11:20 PAGE 53-7 
CONVERT 16=BI1T VIRTUAL ADDRESS 10 22=B1T PHYSICAL ADDRESS 


JSR PC ,$DB20 

ADD #3, (KSP) ONLY TYPE 8 DI 

MOV (KSP) +, 3$ ;PUT POINTER AFTER TYPE INST 

TYPE TYPE THE 22-BIT VIRTUAL ADDRESS 
3$: -WORD 0 THIS WORD HOLDS THE POINTER 10 

; THE ASCIZ STRING 

RESREG RESTORE ALL THE REGISTERS 

MOV (KSP) +, (KSP) ;LEAVE ONLY RETURN ADDR ON STACK 

RTS PC RETURN TO ERROR HANDLER 


; CONVERT NUMBER TO OCTAL ASCIZ 
GITS 


;* THIS SUBROUTINE IS USED TO CONVERT THE A WORD PUSHED 
;*0N THE STACK INTO A UNIBUS ADDRESS AND TYPE IT AS A 
;*6 DIGIT NUMBER. IT USES R1 & RO AND LEAVES 
;*ALL_ OTHER REGISTERS UNCHANGED. 


UBADDR: SAVREG 
MOV 2(KSP) ,R1 ;LOAD 16 BIT ADDRESS INTO R1 
CLR RO 7CLEAR RO FOR CALCULATIONS 
ASHC #6,RO ;LEFT SHIFT <RO:R1> 6 PLACES 
MOV R1 yn PUT LOWER 16 BITS IN PADRSL 
MOV RO,P. ;PUT UPPER 6 BITS IN PADRSH 
MOV WPADRSL. se uKSP) ;PUSH POINTER TO WORDS ON S7ACK 
JSR PC, $DB20 ; JUMP TO CONVERT ROUTINE 


ADD #5. (KSP) ONLY USE LOWER 6 CHARS. 
ol (KSP) +, 3$ ;PUT POINTER AFTER TYPE CALL. 
Y 
3$: ore 0 :HOLDS POINTER TO FIRST CHAR. 
MOV (KSP) +, (KSP) ;LEAVE ONLY RETURN ADDRESS ON STACK 
RTS PC RETURN TO ERROR TYPE ROUTINE. 


SFR AAAAAHAAAARAERAAERAAERAREREARRAARARERRERRARARERARERAAAAREHAHAHAEE 


-SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


7 *SAVE RO-R5 
3 *CALL: 


-* 


; SAVREG 
; *UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
5 *TOP--=(+16) 


ge ¢gee~( 418) 
* +4---R5 
® +6---RG 
* +8---R3 
*+10---R2 
*+12---R1 
*414---R0 
$SAVREG: 
MOV RO,-(SP) 7ZPUSH RO ON STACK 
MOV R1,-(SP) >:PUSH R1 ON STACK 
MOV R2,-(SP) ; PUSH R2 ON STACK 
MOV R3,-(SP) 77PUSH R3 ON STACK 
MOV R4,-(SP) > PUSH RS ON STACK 
MOV RS,-(SP) 77PUSH RS ON STACK 


won 
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SAVE AND RESTORE RO=R5 ROUTINES SEQ 0031 
002444 016646 000022 MOV 22°SP),=(SP) 77 SAVE PS OF MAIN FLOW 
002450 016646 000022 MOV 22(SP) ,=(SP) 7 SAVE PC OF MAIN FLOW 
002454 016646 000022 MOV 22(SP),=(SP) 7 SAVE PS OF CALL 
002460 016646 000022 MOV 22 (SP) ,=(SP) 77 SAVE PC OF CALL 
002464 000002 RT] 

s*RESTORE 20-R5 

7*CALL: 

;* RE SREG 
002466 SRESREG: 
002466 012666 000022 MOV (SP)+,22(SP) s RESTORE PC OF CALL 
002472 012666 000022 MOV (SP)+,22(SP) scZRESTORE PS OF CALL 
002476 012666 000022 MOV (SP)+,22(SP) ;ZRESTORE PC OF MAIN FLOW 
062502 012666 000022 MOV (SP)+,22(SP) ; RESTORE PS OF MAIN FLOW 
002506 012605 MOV (SP)+,R5 ;zPOP STACK INTO R5 
002510 012604 MOV (SP)+,R4 77P0P STACK INTO R4 
902512 012603 MOV (SP)+,R3 :zPOP STACK INTO R3 
002514 012602 MOV (SP)+,R2 ;zPOP STACK INTO R2 
002516 012601 MOV (SP)+,R1 3 POP STACK INTO Ri 
002520 012600 MOV (SP)+,RO 32POP STACK INTO RO 

— 002522 000002 RT] 
642 J FTAA AAAAAAARARARAERRAERARROARARHREARREREEARAAAREARERAEREREAHRARRRA ES 


-SBITL TYPE ROUTINE 


s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


‘ *NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
> *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
‘ *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
te CAL 
te1) “USING A TRAP INSTRUCTION | 
is YPE —_ ,MESADR ::MESADR IS £IRST ADDRESS OF AN ASCIZ STRING 
o TYPE 
:* ME SADR 
#2) USING A JSR INSTRUCTION 
: MOV PS,-(SP ::PUSH PROCESSOR STATUS WORD ON THE STACK 
se JSR PC: we SZCALL TYPE ROUTINE 
ie ME SADDR SZFIRST ADRESS OF MESSAGE 

002524 105767 176417 $TYPE: TSTB  $TPFLG rs1S THERE A TERMINAL ? 

002530 100002 BPL 1$ ;iBR IF YES 

002532 000000 HALT “HALT HERE IF NO TERMINAL 

002534 000413 BR 3$ + LEAVE 

002536 010046 1$: MOV RO,-(SP) 7 SAVE RO 

002540 017600 000002 MOV a2(SP) .RO S2GET ADDRESS OF ASCIZ STRING 

002544 132767 000060 015263 BITB  #40,$ENVM :;** SUPRESS TYPEQUTS? 

002552 001003 BNE 60$ ties YES 

002554 112046 2$: MOVB = (RO) +, = (SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 

002556 001005 BNE 4$ ‘°BR IF IT ISN'T THE TERMINATOR 

002560 005726 TST (SP) + <> ]F TERMINATOR POP IT OFF THE STACK 


002562 012600 60$: MOV (SP)+,RO i2** RESTORE RO 





Aaa 

















TYPE ROUTINE 
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000002 
000011 
000200 


001217 


000056 
176320 
176310 
0060001 


000122 


176226 
176214 
176210 
177600 
176170 


176164 
177600 
000021 


000015 
000074 
000012 000002 


000002 


20-SEP-79 11:20 


3$: ADD 
4$: CMPR 


5$: JSR 
6$: CMPB 
7$: DECB 


3 HORIZONTAL 


8$: MOVB 
9$: JSR 


STYPEC: 


BN 
3$: TSTB 


2$: (MPR 


BR 
1$: CMPB 


SCHARCNT: 
$TYPEX: RTS 


B 
. WORD 


PAGE 53-9 


#2, (SP) 
#HT, (SP) 
ACRLF , (SP) 


(SP) + 
SCRLF 


PC ,STYPEC 
SFILLC, (SP)+ 


2s 
$SNULL ,=( SP) 


1(SP) 

6$ 

PC ,$STYPES 
SCHARCNT 
7$ 


TAB PROCESSOR 


o* .(#) 

PC ,$TYPEC 
#7, SCHARCNT 
9$ 

(SP) ¢ 

2s 

asTPs 
$TYPEC 
2(SP) ,a$7TPB 
astKs 

2$ 

@$TkKB,- (SP) 
#177600, (SP) 
#23,(SP)+ 
2$ 

asTKS 

3$ 
a$TkKB,-(SP) 


#177600, (SP) 
#21,(SP)+ 
3$ 


#CR,2(SP) 
1$ 


LF 2(SP) 
$TYPEX 
(PC)+ 

0 

PC 


ADJUST 
;RET 


SEQ 0032 


RETURN PC 


* BRANCH IF <HT> 
7 ZBRANCH IF NOT 


:7POP <CR><LF> EQUIV 


37 GET NEXT CHARACTER 

33G0 TYPE THIS CHARACTER 

3718S IT TIME FOR FILLER CHARS.? 

32 1F NO GO GET NEXT CHAR 

;:GET # OF FILLER CHARS. “NEEDED 

;7AND THE NULL CHAR. 

7z:DOES A NULL NEED TO BE TYPED? 

;BR IF NO=-GO POP THE NULL OFF OF STACK 
3;GO TYPE A NULL 

“DON T COUNT THE NULL AS A CHARACTER 


LOOP 


s REPLACE TAB WITH SPACE 
77 TYPE A SPACE 
7 BRANCH IF NOT AT 


;; TAB STOP 


>:POP SPACE OFF STACK 
GET NEXT CHARACTER 
cWAIT UNTIL PRINTER IS READY 


:;LOAD CHAR TO BE TYPED INTO DATA REG. 
i2** SEE IF KEYBOARD IS TALKING 

ie* BIT CLEAR TOP BYTE AND PARITY B11 
ies SEE IF IT IS A 

ii** BR IF IT ISN'T 


ties BR BACK 
see PUSH NEXT CHARACTER ON STACK 
tise IS IT A 40 

ji** BR IF NOT 


7 BRANCH IF 
3iNOT <CR> 


Ph 
BRANCH IF 
3<LF> 

‘PING SPACE 
OUNT 


SL AAAAARAAERAAEHEHARAEARAARAACHRAAAAAHAAREEHAHARARHKAENHeKASKEHeAAAESs . 


IF NOT READY 


M 


ee 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


;*THIS ROUTINE IS USED TO CHANGE A 16-817 BINARY NUMBER TO A 6-DIGIT 
>*OCTAL (ASCI]) NUMBER AND TYPE IT 
:*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:*CALL: 

;* MOV NUM ,= (SP) : | NUMBER TO BE TYPED 

: TYPOS ;CALL FOR TYPEOUT 

: -BYTE N :3NeI TO 6 FOR NUMBER OF DIGITS TO TYPE 
-BYTE mM 3oM=1 OR 0 


31=TYPE LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


> *$TYPON=-=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


Be Be ee 
ae, ee @ 


S@CALL: 

;* MOV NUM ,=-(SP) ; NUMBER TO BE TYPED 
oa TYPON 77 CALL FOR TYPEOUT 

j #1 YPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3*CALL: 

s* MOV NUM , = (SP) : NUMBER TO BE TYPED 
5* TYPOC 77CALL FOR TYPEOUT 
$TYPOS: MOV a(SP) ,-(SP) 7zPICKUP THE MODE 


MOVB 1(SP) , SOF ILL ;;LOAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 


ADD #2, (SP) : ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1,S0F ILL 4} THE ZERO FILL SWITCH 
MOVB #6, $0MODE +1 ZSET FOR SIX(6) DIGITS 
$TYPON: MOVB #5,$0CNT SET THE ITERATION COUNT 
MOV R3,-(SP) <ISAVE R R3 
MOV R4,-(SP) ZZ SAVE R4 
MOV R5,-(SP) et a RS 
+ Fm epee st ae ;GET THE NUMBER OF DIGITS TO TYPE 
ADD #6,R4 striae IT FOR MAX. ALLOWED 
MOVB R4,S0MODE ;SAVE IT FOR USE 
MOVB SOFILL, RG GET THE ZERO FILL SWITCH 
MOV 12(SP).R5 - SBICKUP THE INPUT NUMBER 
CLR R3 ;CLEAR THE OUTPUT WORD 
1$: ROL R5 * SROTATE MSB INTO ‘'C"' 
BR 3$ 3:60 DO MSB 
2$: ROL R5 : FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 ;GET LSB OF THIS DIGIT 
DECB SOMODE ‘TYPE THIS DIGIT? 
7 ;BR IF NO 


i3GET a OF JUNK 
T FOR O 
BA oes 0? 
DON'T SUPPRESS ANYMORE Q'S 


SSMAKE THIS DIGIT ASCII 


SEQ 0033 





on“ 


CKKUAAO 11/44 UB] MAP MACRO M1111) 20=SEP=79 11:20 PAGE 53-11 





(ASCII) AND TYPE 


003170 052703 000040 S$: BIS a (R3 ;iMAKE ASCII If NOT ALREADY 
003174 110367 000040 MOVB  —R3,, BS ‘SAVE FOR TYPING 
003200 104400 003240 TYPE B$ *GO TYPE THIS DIGIT 
003204 105367 000032 7$: DECB —« $OCNT $3 COUNT BY 1 
003210 003347 BGT 2$ 'ZBR IF MORE TO DO 
003212 002402 BLT 6$ :BR IF DONE 
003214 005204 INC RS * INSURE LAST DIGIT ISN'T A BLANK 
003216 000744 BR 2$ *:GO DO THE LAST DIGIT 
003220 012605 6$: MOV (SP) +,R5 ;:RESTORE R5 
003222 612604 MOV (SP) +,R4 ZRESTORE R4 
003224 012603 MOV (SP) +-R3 :EREST ORE R3 
003226 000002 000004 MOV 2 (SP) ,4(SP) SET THE STACK FOR RETURNING 
003234 012616 MOV (SP) +, (SP) 
003236 RTI 7 RETURN 
003240 000 8$: .BYTE 0 :=STORAGE FOR ASCII DIGIT 
003241 000 TBYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
003242 000 S$OCNT: .BYTE 0 SOCTAL DIGIT COUNTER 
003243 000 $OFILL: .BYTE 0 SZERO FILL SWITCH 
003244 000000 SOMODE: .wWORD 0 “NUMBER OF DIGITS TO TYPE 
644 fF AEAAARAARERAAARARERAAREAAAARARARERRARARARARRARARAARAARERAERAR ES 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
; *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


*CALL: 
ie MOV NUM, - (SP) ::PUT THE BINARY NUMBER ON THE STACK 
a TYPDS *:GO TO THE ROUTINE 
003246 $TYPDS: 
003246 010046 MOV RO,-(SP) : :PUSH RO ON STACK 
003250 010146 MOV R1.-(SP) “PUSH R1 ON STACK 
003252 010246 MOV R2,-(SP) *PUSH R2 ON STACK 
003254 010346 MOV R3.~(SP) PUSH R3 ON STACK 
003256 010546 MOV R5.-(SP) + PUSH R5 ON STACK 
003260 012746 020200 MOV #20200, -(SP) :7SET BLANK SWITCH AND SIGN 
003264 016605 000020 MOV 20(SP) .R5 *GET THE INPUT NUMBER 
003270 100004 BPL 1$ ::BR IF INPUT IS POS 
003272 005405 NEG R5 *SMAKE THE BINARY NUMBER POS. 
003274 112766 000055 000001 MOVB = # "=, 1 (SP) : : MAKE THE ASCII NUMBER NEG. 
003302 005000 1$: CLR RO :ZERO THE CONSTANTS INDEX 
003304 012703 003462 MOV ASDBLK,R3 SETUP THE OUTPUT POINTER 
003310 112723 000040 MOVB #' ,(R3)+ SET THE FIRST CHARACTER TO A BLANK 
003314 005002 2$: CLR R2 ;:CLEAR THE BCD NUMBER 
003316 016001 003452 MOV $DTBL (RO) ,R1 GET THE CONSTANT 
003322 160105 3$: SUB R1,R5 : 2 FORM THIS BCD DIGIT 
003324 002402 BLT 4$ :2BR IF DONE 
003326 005202 INC R2 ‘INCREASE THE BCD DIGIT BY 1 
003330 000774 BR 3$ 
003332 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
003334 005702 TST R2 =: CHECK IF BCD DIGIT=0 
003336 001002 BNE 5$ >:FALL THROUGH IF 0 
003340 105716 TSTB (SP) *:STILL DOING LEADING 0°S? 


003342 100407 BM] 7$ :2BR IF YES 





ae] ame) 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0035 
003344 106316 5$: ASLB (SP) 7 aMSD? 
3346 103003 BCC 6$ +:BR IF NO 
003350 116663 000001 177777 MOVB _—«7 (SP), =1(R3) + YES==SET THE SIGN 
3356 052702 000060 6$: BIS #'0,R2 :2MAKE THE BCD DIGIT ASCI! 
003362 052702 000040 7$: BIS #" .R2 :>MAKE IT A SPACE IF NOT ALREADY A DIGIT 
003366 110223 MOVB = R2, (R3) + ‘:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
003370 005720 TST (RO) + +: JUST INCREMENT ING 
003372 020027 000010 CMP RO,#10 ::CHECK THE TABLE INDEX 
003376 002746 BLT 2$ :GO DO THE NEXT DIGIT 
003400 BGT $ *:G0 TO EXIT 
003402 010502 MOV R5,R2 °:GET THE LSD 
04 000764 BR 5$ +:GO CHANGE TO ASCII! 
06 105726 8S: TSTB (SP) + * WAS THE LSD THE FIRST NON-ZERO? 
003410 100003 BPL 9$ a3 IF NO 
003412 116663 177777 177776 MOVB  <1(SP),-2(R3)  ::YES==SET THE SIGN FOR TYPING 
003420 105013 9$: CLRB = (R3) >:SET THE TERMINATOR 
003422 012605 MOV (SP)+,R5 +:POP STACK INTO R5 
003424 012603 MOV (SP) +.R3 +:POP STACK INTO R3 
003426 012602 MOV (SP) +_R2 ::POP STACK INTO R2 
093430 012601 MOV (SP) +_R1 +:POP STACK INTO R1 
003432 012600 MOV (SP)+,RO ;zPOP STACK INTO RO 
003434 104400 003462 TYPE , $DBLK ‘NOW TYPE THE NUMBER 
003440 016666 000002 000004 MOV 3(SP) 4 (SP) ‘ADJUST THE STACK 
003446 012616 MOV (SP) +. (SP) 
003450 000002 RTI : RETURN TO USER 
003452 023420 $DIBL: 10000. 
003454 001750 1000. 
003456 000144 100 
003460 000012 10. 
003462 $DBLK: .BLKW 4 
645 FJ TEAR RARAAAEARERRARAERRRERAARREARAAERAARARRARAERARARARAERARERAHAEES 
.SBTTL TRAP DECODER 
:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
‘AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE ST4R7ING ADDRESS 
‘OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED [7 wILL 
**GO TO THAT ROUTINE. 
003472 010046 $TRAP: MOV RO,-(SP) :: SAVE RO 
003474 016600 000002 MOV 2(SP) ,RO S:GET TRAP ADDRESS 
003500 005740 TST -(RO) ;:BACKUP BY 2 
003502 111000 MOVB _— (RO) ,RO GET RIGHT BYTE OF TRAP 
003504 016000 003512 MOV $TRPAD (RO) ,RO : INDEX TO TABLE 
003510 000200 RTS RO GO TO ROUTINE 
.SBITL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
**BY THE ‘TRAP’ INSTRUCTION. 
; ROUT INE 
003512 $TRPAD: 
003512 002524 $TYPE  ;:CALL=TYPE TRAP+0(104400) TTY TYPEQUT ROUTINE 
003514 003044 $TYPOC ::CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 





“ry 
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TRAP TABLE SEQ 0036 
003516 003020 $TYPOS ;;CALL=TYPOS TRAP+4(104404) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
003520 003060 $TYPON : 3 CALL=TYPON TRAP+6(104406) TYPE OCTAL NUMBER (AS PER LAST CALL) 
003522 003246 STYPDS ;;CALL=TYPDS TRAP+10(104410) TYPE DECIMAL NUMBER (WITH SIGN) 
003524 002430 SSAVREG ::CALL=SAVREG TRAP+12(104412) SAVE RO-R5 ROUTINE 
003526 002466 SRESREG ;;CALL=RESREG  TRAP+14(104414) cals cl RO=R5 ROUT INE 
646 003530 004054 TBITOFF ;;CALL=TBITO TRAP+16(104416) THIS WILL TURN OFF T BIT TRAPPING 
214 003532 004102 TBI TRESTORE 3;CALL=TBITR TRAP+20(104420) THIS WILL RETURN THE T BIT TO PREVIO 
645 FF UAAAAAAAAARAAAAARAARARRERAARARERAERRARAARAAAARRAAARARAARRRAAAREREE 


-SBTTL POWER DOWN AND UP ROUTINES 
POWER DOWN ROUTINE 


003534 012737 003662 000024 SPURDN: MOV AMSILLUP,@APWRVEC ;;SET FOR FAST UP 
003542 012737 000340 000026 MOV #340, a#PWRVEC+2 ;:PRIO:7 
003550 010046 MOV RO,-(SP) ;=PUSH RO ON STACK 
003552 010146 MOV » R1,-(SP) 3¢PUSH R1 ON STACK 
003554 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 
003556 010346 MOV R3,-(SP) 3 PUSH R3 ON STACK 
003560 010446 MOV R4,-(SP) 7¢PUSH R4& ON STACK 
003562 010546 MOV R5,~(SP) 3=PUSH RS ON STACK 
003564 010667 000076 MOV SP , SSAVR6 3zSAVE SP 
003570 012737 003602 000024 MOV #$PWRUP ,@APWRVEC ;;SET UP VECTOR 
003576 000000 HALT 

000776 BR oe 3 HANG UP 

;POWER UP ROUTINE 
003602 016706 000060 $PWRUP: MOV $SSAVR6, SP 33GET SP 
003606 005067 900054 CLR SSAVR6 ;sWAIT LOOP FOR THE TTY 
003612 005267 000050 1$: INC $SSAVR6 3zWAIT FOR THE INC 
003616 001375 BNE 1$ 3::0F WORD 
003620 012605 MOV (SP)+,R5 33POP STACK INTO R5 
003622 012604 MOV (SP) +,R4 3;sPOP STACK INTO R4& 
003624 012603 MOV (SP)+,R3 3:POP STACK INTO R3 
003626 012602 MOV (SP)+,R2 3:POP STACK INTO R2 
003630 012601 MOV (SP)+,R1 ;:POP STACK INTO R1 
003632 012600 MOV (SP)+,RO 3:POP_STACK INTO RO 
003634 012737 003534 000024 MOV #SPWRON, @APWRVEC :;SET UP THE POWER DOWN VECTOR 
003642 012737 000340 000026 MOV #340, a#PWRVEC+2 ye So 7 
003650 104400 TYPE REPORT THE POWER FAILURE 
003652 003670 SPWRMG: .WORD PWRMSG POWER FAIL +, + POINTER 
003654 012716 MOV (PC)+, (SP) S TRESTART AT STAR 
003656 010000 $PWRAD: .WORD START : sRESTART ADDRESS. 
003660 000002 RTI 
003662 000000 SILLUP: HALT 32: THE POWER UP SEQUENCE WAS STARTED 
003664 000776 BR “e 3; BEFORE THE POWER DOWN WAS COMPLETE 
003666 000000 SSAVRG: 0 3¢PUT THE SP HERE 
650 003670 012 015 120 PWRMSG: .ASCIZ <12><15>?POWER FAILURE, RESTARTING PROGRAM? 

003673 117 127 105 
003676 122 040 106 
003701 101 111 114 
003704 125 122 105 
003707 054 040 122 
003712 105 123 124 
003715 101 122 124 
003720 111 116 107 
003723 040 120 122 


+o 
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POWER DOWN AND UP ROUTINES 
117 107 122 
101 115 000 
-EVEN 


5 ETAAAAARARARARAAAAARARARARARAARARRARAAARRAAAAAARRAARAARERAAHAEREAED 


.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
3*THIS ROUTINE WILL CONVERT A 32=B1T UNSIGNED BINARY NUMBER TO AN 


;*UNSIGNED OCTAL ASCI1Z NUMBER 


7*CALL 
7* MOV #PNTR,=-(SP) 
3* JSR PC ,a#$DB20 
st RE TURN 
003734 104412 $DB20: SAVREG 
003736 016601 000002 MOV 2(SP),R1 
003742 012705 004053 MOV #$OCTVL+13.,R5 
003746 012704 000014 MOV #12.,R4 
903752 012703 177770 MOV *C7,R3 
003756 012100 MOV (R1)+,RO 
760 012101 MOV (R1)+,R1 
003762 005002 CLR R2 
003764 110245 1$: MOVB R2,-(RS) 
766 010002 MOV RO,R2 
003770 005304 DEC R4 
003772 003007 BGT 3$ 
003774 001405 BEQ 2$ 
003776 005205 INC R5 
010566 000002 MOV R5,2(SP) 
004004 104414 RESREG 
004006 000207 RTS PC 
004010 006203 2$: ASR R3 
004012 006001 3$: ROR R1 
004014 ROR RO 


004026 040302 BIC R3,R2 

004030 062702 000060 ADD #°0,R2 

004034 000753 BR 1$ 
SOCTVL: .BLKB 








SEQ 0037 





























:sPOINTER TO LOW WORD OF BINARY NUMBER 
33CALL THE ROUTINE 
32 THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 


73SAVE ALL REGISTERS 

7zPICKUP THE POINTER TO LOW WORD 

;zPOINTER TO DATA TABLE 

;;D0 ELEVEN CHARACTERS 

; =MASK 

;sLOWER WORD 

3 HIGH WORD 

3; TERMINATOR 

7;zPUT CHARACTER IN DATA TABLE 

33GET THiS DIGIT 

: ¢ COUNT THIS CHARACTER 
;BR IF NOT THE LAST DIGIT 

:2BR IF IT IS THE LAST DIGIT 
ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
S:ASCIZ CHAR. & PUT IT ON THE STACK 

‘ URESTORE ALL REGISTERS 

Ss OsiTh TO USER 
POSITION THE MASK FOR THE LAST DIGIT 
;;POSITION THE BINARY NUMBER FOR 

25 THE NEXT OCTAL DIGIT 


‘sane CUT ALL JUNK 
MAKE THIS CHAR. ASCI! 

:GO PUT IT IN THE DATA TABLE 

RESERVE DATA TABLE 


Ao 
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DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


655 


SEQ 0038 


—_ 
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DOUBLE LENGTH BINARY TO OCTAL ASC 


11 
II € 


20=SEP=79 11:20 PAGE 55 
ONVERT ROUTINE 


SRITL eeeweeeennene SUBROUTINES UNIQUE TO THIS PROGRAM seeeeenenserene 


SEQ 0039 





=_—- 
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672 000020 

673 004054 

674 004054 032766 
5 004062 


6 004064 
677 004072 042766 
678 004100 000006 


692 004102 
693 004102 016766 


MACRO M1111 20-SEP-79 11:20 PAGE 56 
seerenreennees SUBROUTINES UNIQUE TO THIS PROGRAM exenannnanane 


000020 000002 


000002 175214 
000020 000002 


175200 000002 


.SBTTL TURN OFF AND SAVE T-8IT 


JL AAAAAAAAAAAAAAREREREAEEAERAARERRAARERERAARRARTAERRARAAHRAAAAAARERERARE RE 


i* THIS SUBROUTINE IS REACHED BY THE TRAP CALL ‘TBITO", IT IS 
3* USED TO TURN OFF THE T-BIT IF IT IS ON. THE PROCESSOR STATUS 
7° IS SAVED IN ‘OLDPSWwW'' SO THAT THE T-B1T CAN BE RESTORED TO ITS 
;* PREVIOUS STATUS WHEN CONDITIONS WARRANT. 


SL AARAAAAARAAAREEAAREAAAAAAAEAARRERAAAAAAAHAARAARAARARAARAAAHARHARREEEEE 


TBIT=BITS 


TBITOFF 
BIT #TBIT,2(KSP) 71S THE T-BIT ON? 
BEQ 1$ ;BRANCH TO EXIT IF IT IS NOT ON 
MOV 2(KSP),OLDPSW ;SAVE OLD PSW FOR RESTORING T BIT 
BIC ATBIT,2(KSP) ;CLEAR T BIT IF IT IS ON 

1$: RTT RETURN TO PROGRAM 


-SBTTL RESTORE T-BIT TO ITS PREVIOUS CONDITION 


VPA SORERERERERARRSRRRRRRAS ERS R RRR RR RRR RRR RRR RRR RRR RR RRR SRR RRR RRA RRR REED! 


THIS SUBROUTINE CAN BE REACHED BY THE TRAP CALL ‘TBITR', IT IS 
USED TO RESTORE THE T=BIT AFTER A PARTICULAR TES THAT CANNOT 
BE RUN WITH THE T-BIT ON. IT USES THE PROCESSOR STATUS STORED 
IN ‘OLDPSW'’ BY ‘TBITO', REPLACES THE PS ON THE STACK WITH IT 
AND DOES AN ‘RTT'. 


ses ee? ® B* 


SLR AARAAAAAAAEAEAAHERAERERAAHAREARRAARRARAAAAAAAHARHARARSARAAAAHARAAHANH Ae 


BITRESTORE : 
MOV OLDPSW,2(KSP) :PUT OLD PSW ON STACK 


T 





—_ 
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RESTORE T=BIT TO ITS PREVIOUS CONDITION SEQ 0041 

695 004110 042767 000020 175170 BIC #TBIT,OLDPSw CLEAR T-BIT IN ‘DOLOPSW’' SO THAT 
6 :I1T WON'T BE TURNED ON BY ACCIDENT 
697 004116 000006 RTT ;RETURN TO PROGRAM AND INHIBIT 
698 :T BIT TRAP AFTER THIS INSTRUCTION. 
699 
me 
702 .SBTTL SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 
703 FF ERRRARAAEARARARARARAERRERERAERARARAAAARRARRARARARRRARARRARRAAEAREHARRRARENED 
79% 7* 
705 8 THIS SUBROUTINE CLEARS ALL OF THE MAP REGISTERS BY LOADING 
706 :* THE ADDRESS OF MAPLOO INTO R3 AND THEN CLEARING THE 
£0? 8 REGISTER POINTED TO BY R3 UNTIL R3 POINTS ABOVE MAPH37. 
709 eee SII eit titi iii iii iii iii iii iii iii iii 
710 004120 012703 170200 CLRMAP: MOV AMAPLO,R3 zPUT FIRST MAP ADDR IN R3 
711 004124 00502 1$: CLR (R3)+ :CLEAR MAP REGS 
712 004126 022703 170376 CMP AMAPH37,R3 :SEE IF LAST ADDR IS IN R3 
713 004132 103374 BHIS 1$ ‘BRANCH IF R3 LE THAN LAST ADDR 
at 004134 000207 RTS PC ;RETURN TO MAIN PROGRAM 
16 .SBTTL SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 
vis SC LEAR AAAARARAAARAAERRAERERARAERARRRRAARRORRAERAARERRARARAAARARERAAAEAR HAAR R ERED 
718 7 
719 ;* THIS SUBROUTINE IS USED TO LOG AND REPORT THE FACT THAT A 
720 :* REFERENCE TO A MAPPING REGISTER TIMED OUT ON THE UNIBUS. IT 
721 :* KEEPS A ‘LOGICAL AND'' AND A "LOGICAL OR'’ OF EACH ADDRESS THAT 
55 i* TIMES OUT. 
724 eeeeeie ite itt it iti t titi titi tii ti titi iii i iii ti 
725 004136 E TIMEOUT: :STARTING ADDRESS OF SUBROUTINE 
726 004136 0052. INC (PC) + > INCREMENT ONE TIME GATE 
727 004140 177777 TOFLAG: .WORD -1 [ONE TIME ENTANCE FLAG 
728 004142 001401 BEO 10$ ;BRANCH IF FLAG IS NOW ZERO 
729 004144 00000 HAL T +] HAVE ENTERED THIS ROUTINE BEFORE 
730 :1 FINISHED REPORTING THE FIRST ERROR 
731 >THE SECOND ENTRY ADDRESS IS ON THE 
732 STACK AND THE FIRST ERROR CONDITION 
733 71S PROBABLY STILL LOCKED UP . 
734 004146 012667 175130 10$: MOV (KSP) +, OLDPC “SAVE RETURN ADDRESS 
735 004152 012667 175126 MOV (KSP) +, OLDPS ;SAVE OLD PSW 
36 004156 016767 173604 175104 MOV CPUERR.PCPUER :SAVE CPU ERROR REGISTER 
737 004164 016767 175100 173574 MOV PCPUER,CPUERR  ;CLEAR CPU ERROR REGISTER 
738 004172 026767 175072 175066 . CMP PCPUER,, CPUEXP  :SEE IF EXPECTEED CONDITION CAME UP. 
739 004200 001402 BEQ 1$ “BRANCH IF IT WAS A TIMEOUT 
740 004202 104001 EMT+ 1 
741 004204 000414 BR 3$ sBRANCH TO EXIT 
742 004206 050067 175016 1$: BIS RO, ADDROR :PERFORM LOGIAL OR OF FAILING ADDRESS 
743 004212 005100 COM RO :GET RO READY FOR AND 

004214 040067 175006 BIC RO, ADRAND PERFORM LOGICAL AND 

004220 005100 COM RO :PUT RO BACK AS IT WAS 
744 004222 005767 175030 TST ERRCNT 71S THIS THE FIRST ERROR 
745 004226 001002 BNE 2s :BRANCH IF NOT FIRST ERROR 
746 004230 104201 EMT + 201 
747 004232 000401 BR 3$ :BRANCH TO EXIT 


748 004234 2s: 
004234 104301 EMT + 301 





—_—«" 
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749 004236 012767 177777 177674 
750 006244 016746 175034 


751 004250 016746 175026 
ler 004254 000006 


765 004256 012667 175020 
766 004262 050067 174742 


004270 940067 174732 
004 005100 

768 004276 056767 eee 174730 
004310 046767 174656 174714 
004316 Q 

770 004322 005767 174730 


774 004334 
004334 104302 
775 004336 000177 174740 
776 
777 
778 
779 
780 
781 “ 
782 
783 
784 
785 
f 
787 004342 
788 004342 012667 174734 
789 004346 050067 174656 
790 004352 005100 
004 354 174640 
004360 005100 
791 004362 050167 174646 
792 004366 005101 
004370 040167 174636 
004374 005101 
793 004376 005767 174654 
794 004402 001002 
795 004604 104203 
796 004406 000401 
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MAP REGISTERS 


3$: MOV #=-1, TOFLAG 
MOV OLDPS ,=(KSP) 
ory OLDPC ,=(KSP) 


AND FOUND TO NO 


ener ee eee 


° 


=:: BeBe Be Be Be Be Be Be 


RITEERROR: 

MOV (KSP) +, OLDPC 
BIS RO, ADDROR 
COM RO 
BIC RO,ADRAND 
COM R 
BIS $STMPO ,DATAOR 
COM $TMPO 
BIC $STMPO,DATAND 
COM $STMPC 
To) . 
BNE 
EMT+ 362 
BR 2$ 

1$: 
EMT + 302 

2s: JMP @OL DPC 


RESET ONE TIME GATE 

RESTORE OLD PSw 

;PUSH RETURN ADDRESS BACK ON THE STACK 
RETURN TO THE TEST 


SBTTL SUBROUTINE TO REPORT MAP REGISTERS THAT WILL NOT HOLD ZERO 


MABBERARRRAAASZARSASAALASRASERSALARARE RAR SA RRA R SARA R RR RRR RR REAR RA RASA SDSS 


THIS ag he ® IS CALLED EVERY TIME A MAP REGISTER i. CLEARED 
T BE ZERO. IT "AND" * *‘OR’* OF 


KEEPS A LOGICAL ' 


THE FAILING REGISTER'S ADDRESS AND DATA AND REPORTS ALL ERRORS. 
AT THE END OF THE TEST A SUMMARY ERROR MESSAGE IS GIVEN WHICH 
WILL REPORT THE LOGICAL ‘'AND’’ AND 


;SAVE RETURN ADDRESS IN CASE OF ERROR LOOP 
;LOGICAL ‘'OR’’ OF BAD ADDRESS 
:GET RO READY FOR AND 


;PERFORM LOGICAL AND 
;PUT RO BACK AS IT WAS 


:L06 ICAL ‘‘OR’* OF BAD DATA 


;PERFORM LOGICAL AND 


:PUT $TMPO BACK AS IT WAS 
;SEE IF THIS IS FIRST ERROR 
;BRANCH IF NOT FIRST ERROR 


:SKIP NEXT STATEMENT 


RETURN TO THE TEST 


.SBTTL SUBROUTINE TO REPORT DUAL ADDRESSING WHEN LOADING A MAP REGISTER 


LARA AREA ERERE RAE ERAREREAREERAAEA EERE RRR ERAEREAERERAE ROKR EE ES 


7* THIS SUBROUTINE WILL LOG AND - aie ALL oa art ERRORS 
:* FOUND IN THE MAPPING REGISTERS. "LOGICAL OR** AND A 
:* "LOGICAL AND'’ OF THE WRITTEN ADDRESSES WILL BE MAINTAINED IN 
i* "ADDROR* AND ‘ADRAND THE LOG ON THE ADDITIONAL OR ams: 
7° ADDRESSES WILL BE MAINTAINED IN *DATAOR’ AND “*DATAND' 
SA EERIE CLIT AOD ore 
DUALADR: STARTING LOCATION OF SUBROUTINE 

MOV (KSP) + ,OLDPC ;SAVE RETURN ADDRESS IN CASE OF LOOP 

BIS 0, ADDROR ;LOGICAL OR OF WRITTEN ADDRESS 

COM RO GET RO READY FOR AND 

BIC RO, ADRAND PERF ORM cre AND 

COM R =PUT RO BACK AS_IT 

BIS R1,DATAOR LOGICAL OR OF DUALED. ADDRESS 

COM R1 GET R1 READY 


BIC R1,DATAND 
OM R1 
TST ERRCNT 
1$ 
EMT+ 203 
es 





FOR AND 
PERFORM LOGICAL AND 
;PUT R1 BACK AS IT WAS 

;SEE IF THIS IS FIRST ERROR 


[BRANCH IF NOT FIRST ERROP 
;BRANCH TO EXIT 


"OR'’ OF THE ADDRESSES AND DATA. 


MARSA RSRASALA SA RRASASARARASRSRR RRR RASA RRR ARR RRR RAS RARRARARARA RRR ARRAS SSS BI 


ma 





4 
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SUBROUTINE TO REPORT DUAL ADDRESSING wHEN LOADING A MAP REGIST SEQ 0043 
797 004410 1$: 
004410 104303 EMT + 303 
798 004412 000177 174664 2$: MP @0L DPC :RETURN TO TEST 
800 .SBTTL SUBROUTINE TO REPORT COUNT PATTERN ERRORS IN MAP REGISTERS 
801 CFA AAAARAARAARARARAAARAAAARAARARUHARARARARARARRAAREARAARARARRARARARARAAERED 
262 :* 
803 te THIS SUBROUTINE IS CALLED WHENEVER AN ERROR IS DISCOVERED IN 
B04 te THE COUNT PATTERN IN THE MAP REGISTERS. IT KEEPS THE LOGICAL 
805 te ““AND'' AND ‘‘OR'' CE THE FAILING REGISTER’S ADDRESS, DATA RECEIVED, 
806 :* AND PATTERN LOADED. EVERY ERROR IS REPORTED AND AT THE END OF 
807 3° A TEST AN ERROR SUMJMARY IS GIVEN. 
809 Eee ICTS i iii i titi titi i titi titi ttt titi titi itt i ttt itt t titi t ttt eT 
B10 004416 012667 174660 COUNT: MOV (KSP) + ,OLDPC ;SAVE RETURN ADDRESS IN CASE OF ERROR LOOP 
811 004422 050067 174602 BIS RO, ADDROR [LOGICAL OR OF BAD ADDRESSES 
812 004426 005100 COM RO *GET RO READY FOR AND 
004430 040067 174572 BIC RO, ADRAND :PERFORM LOGICAL AND 
004434 005100 COM RO :PUT RO BACK AS IT WAS 
813 004436 050367 174572 BIS R3,DATAOR ;LOGICAL OR OF BAD DATA 
814 004442 005103 COM R3 [GET R3 READY FOR AND 
004444 040367 174562 BIC R3, DATAND :PERFORM LOGICAL AND 
004450 005103 COM R3 :PUT R3 BACK AS IT WAS 
815 004452 050467 174562 als R4.PATTOR ‘LOGICAL OR OF PATTERN LOADED 
816 004456 005104 COM RG [GET R4 READY FOR AND 
004460 040467 174552 BIC R4,PATAND ;PERFORM LOGICAL AND 
004464 005104 COM R4 :PUT RG BACK AS IT WAS 
817 004466 005767 174564 TST ERRCNT =I1S THIS FIRST ERROR 
818 004472 001002 BNE 1$ “BRANCH IF NOT FIRST ERROR 
819 004474 104204 EMT+ 204 
820 004476 000401 BR 2$ :SKIP NEXT STATEMENT 
821 004500 1$: 
004500 104304 EMT + 304 
822 004502 000177 176574 2$: MP @0L DPC :RETURN TO THE TEST 
B24 
B25 _SBTTL SUBROUTINE TO REPORT COUNT PATTERN ERRORS ON UNIBUS DATA PATH | 
826 CL TAAAAAAAAAARREAEERAAKRAERARARAEAERARARAEARARAEAARAAERARARAAEREERERARARREHHEeS 
827 oe 
828 ie THIS SUBROUTINE IS CALLED WHENEVER AN ERROR IS DISCOVERED IN THE 
829 te COUNT PATTERN THAT IS RUN OVER THE UNIBUS INTO MAIN MEMORY. IT 
830 3* KEEPS THE LOGICAL ‘‘AND'' AND ‘‘OR'’ OF THE PATTERN LOADED AND THE 
831 :* DATA RECEIVED, AND REPORTS ALL ERRORS. AT THE END OF THE TEST 
B35 * IT GIVES A SUMMARY MESSAGE OF ALL THE ERRORS. 
834 PITTI IIIT ITT TTT ITIL TTT TT TTT t iti ttt iti iit t titi titi titi titi ttt iit 
835 004506 012667 174570 UBCOUNT :MOV (KSP) +, OLDPC :SAVE RETURN ADDRESS IN CASE OF ERROR LOOP 
836 004512 050167 174522 BIS R1,PATTOR “LOGICAL OR OF COUNT LOADED 
837 004516 005101 COM R1 :GET R1 READY FOR AND 
004520 040167 174512 BIC R1,PATAND PERFORM LOGICAL AND 
004524 005101 COM R1 :PUT R1 BACK AS IT WAS 
838 004526 050067 174502 BIS RO, DATAOR :LOGICAL OR OF DATA READ 
839 004532 005100 COM R T RO READY FOR AND 
004534 040067 174472 BIC RO,DATAND PERFORM LOGI CAL AND 
004540 005100 COM RO :PUT RO BACK AS IT WA 
840 004542 005767 174510 TST ERRCNT sI1S THIS THE FIRST anon? 
841 004546 001002 BNE 1$ “BRANCH IF NOT FIRST 
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842 


004550 


104205 
000401 


104305 
000177 


MACRO M1111 


174520 


174504 
174502 
001100 


173154 
174462 
174440 


174434 


174416 
177777 
174416 
174410 


174454 
174456 


174430 
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EMT+ 205 
+ 58 2s ;SKIP NEXT INSTRUCTION 
EMT+ 305 
2%: JMP @OL DPC sRETURN TO THE TEST 
.SBITL Reeeeeeeeenetaaweeeee TRAP HANDL ING ROUTINES REREHRRRRERE HEE EEE 
.SBTTL CPU TRAP HANDLER ROUTINE 
FF AAAAARARRARAAARARARARRARARAARARARARRAERRARARAARAAARARAAARAAAAAAAAHAAAEH ADS 
ie THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS, THRU 
te "ERRVEC’’ (000004). IF THIS SUBROUTINE IS ENTERED BY A SECOND 
2. TRAP BEFORE THE FIRST HAS BEEN PROCESSED A HALT IS EXECUTED. 
pe IF THE WORD ‘CPUEXP’ IS ZERO, NO TRAP WAS EXPECTED AND AN 
3* UNEXPECTED ERROR MESSAGE IS GIVEN. IF THE WORD "CPUEXP’ IS 
:* NOT ZERO THEN THE CPU ERROR REGISTER ‘CPUERR' IS COMPARED WITH 
se "CPUEXP' TO SEE IF THE PROPER CONDITION OCCURRED. ‘PCPUER' CAN 
i* BE USED AS A FLAG TO INDICATE THAT A TRAP HAS OCCURRED SINCE IT 
:* 1S LOADED WITH THE ERROR REGISTER IF A TRAP VECTORS HERE 
Ly eee RAR A EER REE EERE EERE REE ERERERR ERR E RE RRR ER REE RRR E EE EES 
CPUER: INC (PC) + MAKE FLAG ZERO IF FIRST TIME 
CPFLAG: .WORD -1 ;NEGATIVE ONE FOR A FLAG 
BEQ 10$ sBRANCH IF FIRST TIME IN 
HALT *] HAVE ENTERED THIS ROUTINE BEFORE 
:1 FINISHED REPORTING THE FIRST ERROR 
> THE SECOND ENTRY ADDRESS IS ON THE 
:STACK AND THE FIRST ERROR CONDITION 
:1S PROBABLY STILL LOCKED UP . 
10$: MOV (KSP) +, OLDPC SSAVE RETURN ADDRESS IN CASE OF LOOP 
MOV (KSP) +, OLDPS ; SAVE OLD PSW IN CASE OF LOOP 
MOV #KERSTK,KSP ~ ‘ce on cr THE KERNEL STACK POINTER 
MOV CPUERR,PCPUER :SAVE CPU ERROR REGISTER 
MOV OLDPC ,BADPC SAVE PC+2 AT TIME OF ABORT 
TST CPUE XP SEE IF ANY CONDITION WAS EXPECTED 
BEQ 2s “BRANCH IF NO TRAP WAS EXPECTED 
CMP PCPUER,CPUEXP  ;:SEE IF EXPECTED ERROR OCCURED 
geo 1$ “BRANCH IF ERROR CODES MATCH 
-. stat 1$ SKIP NEXT INSTRUCTION 
EMT+ 2 
1$: MOV PCPUER,CPUERR ;CLEAR CPU ERROR REGISTER 
MOV #~-1,CPFLAG MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
MOV OLDPS,-(KSP) :PUSH OLD PSW BACK ON STACK 
MOV OLDPC,-(KSP) PUSH RETURN ADDRESS BACK ON STACK 
RTT :RETURN FROM INTERRUPT OR ABORT 
.SBTTL MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUT INE 
SL AHAAARAKeeARtHAkeHeaKKeeReAekanaRaneeesHanaataneatenanneneneneneenenee 
te THIS ROUTINE WILL HANDLE ALL SPURIOUS MEMORY MANAGEMENT 1SAF 


—_™ 








CKKUAAO 11/464 UB] MAP 
MEMORY MANAGEMENT TRAPS AND ABCRTS HANDLER ROUTINE 


MACRO M1111 20=SEP=79 11:20 PAGE 57-4 


897 * AND ABORTS. IT WILL REPORT THE CONDITION OF ALL THE MEMORY 
898 :* MAMAGEMENT STATUS REGISTERS, AND THEN RETURN TO THE TEST AND 
899 ie TRY TO CONTINUE RUNNING. 
pee Lee RRS OREO ROR ORE EHERRERREREREREEREREREEER ERR R ERENT EERE E EES 
92 004674 05227 MMTRAP: INC (PC)+ MAKE FLAG ZERO IF FIRST TIME 
903 004676 .77777 MMFLAG: .WORD <1 FLAG SHOULD BE NEG ONE 
006 7 001401 BEQ 10$ [BRANCH IF FIRST TIME INTO ROUTINE 
905 0046702 HAL [I HAVE ENTERED THIS ROUTINE BEFORE 
1 FINISHED REPORTING THE FIRST ERROR 
907 THE SECOND ENTRY ADDRESS IS ON THE 
908 STACK AND THE FIRST ERROR CONDITION 
909 31S PROBABLY STILL LOCKED UP . 
910 0046706 011667 174370 108: MOV (KSP) ,BADPC SSAVE PC AT TIME OF ABORT OR TRAP 
911 004710 012667 174366 MOV (KSP) +, OLDPC ;SAVE RETURN ADDRESS IN CASE OF LOOP 
912 0064714 012667 174364 MOV (KSP)+,OLDPS ;SAVE OLD PSW IN CASE OF LOOP 
913 006720 016767 172646 174362 MOV 0. PMMRO SSAVE STATUS REGISTER 
914 0046726 016767 172642 174356 MOV MMAR 1, PMMR 1 ;SAVE AUTO INC/DEC REGISTER 
915 006734 016767 172636 174352 MMR? , PMMR2 SAVE VIRTUAL ADDRESS REGISTER 
916 004742 104003 EMT+ 3 
917 006744 042737 177776 177572 18: BIC #177776,@A"MRO ;CLEAR ALL BITS EXCEPT 0 
918 004752 012767 177777 177716 MOV #-1 ,MMFLAG [RESTORE A NEGATIVE tat TO FLAG 
919 004760 016746 174320 MOV OLDPS ,=(KSP) «PUSH OLD PSW ONTO STAC 
$26 004764 0167466 174312 MOV OLDPC ,~(KSP) PUSH RETURN ADDRESS ON. STACK 
a5) 004770 000006 RTT [RETURN TO MAIN PROGRAM 
923 
924 
$25 
926 SBT Reet ee eee eee eRe R KERR RARE EERE ARE NK EERE EKER Ree Ree HAH EES 
927 SRITL seeenaraneawenaeeeee STAQT OF TEST CODE «steer wtnneenneanesenaes 
a 010000 - =10000 START TEST CODE AT ADDRESS 10000 (2k) 
930 010000 132767 000200 010027 START: BITB #200, $ENVM 31S APT SIZING 
931 010006 001403 BEQ 1$ :NO 
932 010010 012767 020036 171132 MOV ASSWREG, SWR SUSE APT SWITCH REGISTER 
cer 010016 1$: 
935 010016 012737 000340 177776 MOV #340 ,aAPS ;sLOCK OUT ALL INTERRUPTS 
010024 012706 001100 MOV A$CMTAG,R6 ;:FIRST LOCATION TO BE CLEARED 
01 005026 CLR (R6)+ 7: CLEAR MEMORY LOCATION 
010032 022706 001134 CMP #STKS RO ; = DONE ? 
010036 001374 BNE 6 >:LOOP BACK IF NO 
010040 005067 007756 CLR $PASS i3** INITIALIZE PASS COUNT 
010044 0127 0011 MOV #STACK, SP ;SETUP THE STACK POINTER 
019050 012737 020140 000020 MOV #$SCOPE , aw lOTVEC’ f IOT VECTOR FOR SCOPE ROUTINE 
010056 012737 000 000022 MOV #340, a#lOTVEC+2 ;:LEVEL 7 
01 012737 020470 000020 MOV #SERROR, asEMT VEC em VECTOR FOR ERROR ROUTINE 
010072 012737 000340 000032 MOV + oF aneMTVEC +2 ssLEVEL 7 
010100 012737 003472 000034 MOV $) RAP, aA TRAPVE ( STRAP VECTOR FOR TRAP CALLS 
010106 012737 00034C 000036 MOV 7340, @ATRAPVEC +2; LEVEL 7 
010114 072737 003534 000024 MOV #SPWRODN, BAPWRVE ( see FAILURE VECTOR 
010122 012737 000340 000026 MOV #340, aMPWRVEC+2 ;:LEVEL 7 
010130 016767 011164 011154 MOV SENDCT, SEOPCT ‘SETUP END-OF -PROGRAM COUNTER 
010136 005067 171044 CLR STIMES SPINITIALIZE NUMBER OF ITERATIONS 





SEQ 0045 





H & 7 
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eeneeceereneeseneeee START OF TEST CODE seeeeeeeeeneneenanrane SEQ 0046 
010142 005067 171042 CLR = SESCAPE {:CLEAR THE ESCAPE ON ERROR ADDRESS | 
010146 112767 000001 170737 MOVB #1 , ScRMAK 7 2ALLOW ONE ERROR PE | 
910154 012737 021540 000014 MOV #SRTRN, aATBITVEC” 33SET *T’’ BIT VECTOR 10 *SRTRN 
010162 012737 000340 000016 MOV #340, @ATBITVEC*2 ::LEVEL 7 
010170 012767 000002 011342 MOV #RTI,SRTRN 3:SET $SRTRN TO A RT! 

010176 012737 010224 000010 MOV 2po @PRESVEC §=; TRY TO DO A RTT 
010206 005046 CLR (SP5 ; DUMMY PS 
010206 012746 010214 MOV #648, -(SP) : ¢ AND PC 
010212 000006 RTT ZTRY THE RTT 
010214 012767 000006 011316 648: MOV #RTT,SRTRN PIRTT 1S LEGAL==SET $RTRN TO A RTT 
010222 000402 BR 66$ 
010224 062706 000010 65$. ADD #10,S gRTT_ ILLEGAL@-CLEAN OFF THE STACK 
010230 012737 000012 000010 66$: MOV PRESVEC #2, asne svi s;RESTORE TRAP CATCHER 
010236 005067 011304 CLR $TBIT CLEAR ‘'T’* BIT SWITCH 
010242 012767 010242 170634 MOV #.,$LPADR :FINITIALIZE THE LOOP ADDRESS FOR SCOPE 
010250 012767 010250 170630 MOV #.. SLPERR SETUP THE ERROR LOOP ADDRESS 
936 010256 905227 177777 INC #1 ZFIRST TIME? 
010262 001023 BNE 67$ ‘BRANCH IF NO 
019264 022737 621472 0000462 CMP MSENDAD , A442 ssACT=112 
010272 001417 X BEQ 67$ BRANCH IF YES 
010274 104400 010302 TYPE 688 33 TYPE ASCIZ STRING 
010300 000414 BR 67$ GET OVER THE ASCIZ 
:68$: .ASCIZ <CRLF>?CKKUAAO 11744 UBI MAP?<CRLF> 
010332 678: 
937 010332 LOOP: 
938 010332 012767 004674 167710 MOV a#MMTRAP ,MMVE C LOAD MEMORY MANAGEMENT TRAP 
939 : SERVICE ROUTINE ADDRESS 
940 010340 012767 000340 167704 MOV #340 ,MMVEC +2 SET PRIORITY SEVEN 
941 010346 012767 004562 167430 MOV #CPUER,ERRVEC ;LOAD CPU TRAP SERVICE ROUTINE ADDR 
942 010354 012767 000340 167424 MOV #340,ERRVEC+2 ;SET PRIORITY SEVEN 
943 010362 005067 170700 CLR CPUE XP [NOT EXPECTING ANY CPU ERRORS 
944 010366 005037 177572 CLR aFMmRo ; START gh 16 BIT MAPPING 
945 010372 005037 172516 CLR OAMMR 3 [DISABLE MAP AND 22-BIT MAPPING 
946 010376 012700 177777 MOV #-1,RO NEGATIVE ONE USED TO INITIALIZE FLAGS 
947 010402 010067 174156 MOV RO, CPFLAG s INITIALIZE FLAGS 
948 010406 010067 173526 MOV RO, TOFLAG INITIALIZE tapes 
949 010412 010067 174260 MOV RO,MMFLAG INITIALIZE FLAG 
oy 010416 010037 177766 MOV RO, @#CPUERR [CLEAR CPU ERROR REGISTER 
952 
962 LLU ERR EERE ERE EERE RARER REE ERROR Re 
;8TEST 1 MAP REGISTER RESPONSE TEST 
he THIS TEST IS USED TO ENSURE THAT ALL THE UNIBUS MAP REGISTERS 
= CAN BE REFERENCED UNDER PROGRAM CONTROL, WITHOUT TIMING OUT. 
7 THE ADDRESSES OF ANY MAP REGISTERS THAT TIME OUT WILL BE REPORTED 
;* AND, AT THE END OF THE TEST, A SUMMARY OF THOSE REGISTERS WILL 
:* BE GIVEN. 
S » endueweneuneseseesennsenrenetwnevecessneseensenenceeenesonttees 
010422 S11; 
010422 000004 SCOPE 
070424 012767 010506 170670 MOV #TST2,NXTTST SAVE STARTING ADDRESS OF NEXT TEST 
rOR ESCAPE ON PARITY ERRORS 
963 010432 012767 004136 167344 20$: MOV #TIMEOUT,ERRVEC ;LOAD ERRVEC WITH ROUTINE ADDR. 
964 010440 012700 170200 MOV #MAPLO,RO ;PUT FIRST MAP REG ADDR _IN RO 
965 010444 012767 010452 170434 MOV #1$,$LPERR SET LOOP ON ERROR POINTER TO 1$ 


aon 





-—- 
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MAP REGISTER RESPONSE TEST 
966 010452 000240 1$: NOP 
967 010654 011002 MOV (RO) ,R2 ;READ MAP REGISTERS TO R2 
968 010456 062700 000002 ADD #2,R0 “POINT TONEXT MAP REGISTER 
969 010462 022700 170376 CMP #MAPH37 RO [COMPARE LAST MAP REG ADDR WITH RO 
970 010466 103371 BHIS  1$ *CONTINUE READING IF NOT AT LAST REG. 
971 010470 012767 010432 170410 MOV #20$, $i. PERR ‘INITIALIZE LOOPING POINTER IN CASE 
972 ;OF INTERMITTENT FAULTS. 
973 010676 005767 170554 TST ERRCNT ;SEE IF THERE WERE ANY ERRORS 
974 010502 001401 BEQ TST2 ;zNO ERRORS GO [fO NEXT TEST 
975 610506 104004 EMT+ 
9BR RRA RaeReeaaeaaeRaeeaeaeeaeene 
seTEST 2 CLEAR AND READ LOW 2C REGISTERS LOWER 16 BITS 
* THIS TEST WILL ENSURE THAT MAPLOO = MAPL17 WILL ALL HOLD ZERO. 
:* IF ANY REGISTERS ARE NOT ZERO AFTER BEING CLEARED, THEIR ADDRESS AND 
3* CONTENTS ARE REPORTED. IF ALL THE REGISTERS HAVE RANDOM DATA THEN 
te PROBABLY NO WRITE PULSE IS BEING GENERATED, BUT IF THE ERROR IS IN 
i* ONLY ONE REGISTER OR IN ONE BIT iT MIGHT SE MORE DIFFICULT TO FIND. 
5@ 1T IS POSSIBLE THAT THE COUNT PATTERN TEST FOR MAPLOO = MAPL17 WILL 
3* GIVE MORE HELP. 
*: “PRR KRAEERERAEARAREARRARREARERAARAREERERAARRARARARREARREEARRE RRR ERE ERE OE 
010506 iST2: 
010506 000004 SCOPE 
010510 012767 010604 170604 MOV #TST3,NXTTST ; SAVE STARTING ADDRESS OF NEXT TEST 
sFOR ESCAPE ON PARITY ERRORS 
989 010516 012767 004562 167260 MOV #CPUER,ERRVEC ;LOAD CPU TRAP SERVICE ROUTINE ADDR 
990 010524 012700 170200 20$ MOV #MAPLO.RO “LOAD STARTING MAP REGISTER ADDR 
991 010530 012767 010536 170350 MOV #1$,$LPERR “SET LOOP ON ERROR POINTER HERE 
992 010536 000240 1$ NOP 
993 010540 005010 CLR (RO) :CLEAR MAP REGISTER 
010542 011067 170424 MOV (RO) ,STMPO [SEE IF MAP REGISTER IS ZERO 
995 010546 001402 BEQ $ ;BRANCH IF REGISTER IS ZERO 
996 010550 004767 173502 JSR PC,WRITEERROR sREPORT AND LOG ERROR 
997 010554 062700 000004 c$ ADD #4,R0 :POINT TO NEXT MAP REG LOWER 16 BITS 
010 022700 170274 CMP wMAPl?7, RO ZSEE IF THIS SECTION IS TESTED 
999 010564 103364 BHIS 1$ “BRANCH IF NOT 
1000 010566 012767 010524 170312 MOV #20$,$LPERR : INITIALIZE LOOPING POINTER IN CASE 
:OF INTERMITTENT FAULTS. 
1002 010574 005767 170456 TST ERRCNT es THERE ANY ERRORS ON THIS TEST 
01 001401 BEOQ TST3 >;BRANCH IF NO ERRORS 
1004 010602 104005 EMT+  —sS 
1005 zHOLD ZERO 
1006 
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CLEAR AND READ LOW 20 REGISTERS UPPER 6 8 SEQ 0048 
1020 - REAR RRRER EERE REE E RRO RRE EER EN ERERERERERERERRRRERE RRR EERE REE ; 
;*TEST 3 CLEAR AND READ LOW 20 REGISTERS UPPER 6 BITS 


THIS TEST WILL ENSURE THAT MAPHOO = MAPH17 WILL ALi HOLD ZERO. 

IF ANY REGISTERS ARE NOT ZERO AFTER BEING CLEARED, THEIR ADDRESS AND 
CONTENTS ARE REPORTED. IF ALL THE REGISTERS HAVE RANDOM DATA THEN 
PROBABLY NO WRITE PULSE IS BEING GENERATED, BUT IF THE ERROR IS IN 
ONLY ONE REGISTER OR IN ONE BIT IT MIGHT BE MORE DIFFICULT TO FIND. 
IT IS POSSIBLE THAT THE COUNT PATTERN TEST FOR MAPHOO = MAPH17 WILL 
GIVE MORE HiiP. 


BS Be Be Be we 


Be Be 
oeeeeeeee. 





| 
| 
PeUUSTIST TTT TT tte t Tritt tit itt itt ttt titi titi titi titi tt titi T 
010604 TST3: 
010606 000004 SCOPE 
010606 012767 010674 170506 MOV MTSTGNXTTST oo STARTING ADDRESS OF NEXT TEST 
FOR ESCAPE ON PARITY ERRORS 
1021 010614 012700 170202 208: MOV #MAPHO ,RO “LOAD STARTING MAP REGISTER ADDR 
1022 010620 012767 010626 170260 MOV #1$,$LPERR ;SET LOOP ON ERROR POINTER HERE | 
1023 010626 000240 1$: NOP 
1024 010630 005010 CLR (RO) ;CLEAR MAP REGISTER 
1025 010632 011067 170334 MOV <RO) , STMPO 7SEE IF MAP REGISTER IS ZERO 
1026 010636 1402 BEQ es [BRANCH IF sf ye .. ZERO 
1027 010640 004767 173412 JSR PC,WRITEERROR ;REPORT AND LOG ERR 
1028 010644 062700 000004 2s: ADD #4 ,RO ;POINT TO NEXT MAP REG UPPER 6 BITS 
1029 010650 922700 170276 CMP #MAPH17,RO ;SEE IF TESTING IS OVER 
1030 010654 103364 BHIS 1$ [BRANCH IF MORE REGS TO TEST 
1031 010656 012747 010614 170222 MOV #20$,$LPERR s INITIALIZE LOOPING POINTER IN CASE | 
1032 [OF INTERMITTENT FAULTS. 
1033 010664 005767 170366 TST ERRCNT ‘WHERE THERE ANY ERRORS ON THIS | 
1034 010670 001401 BEG TSTS ;:BRANCH IF NO ERRORS 
1035 910672 104006 EMT+ 6 | 
1036 ;HOLD ZERO 
1037 
1038 | 
1050 DDO UII IUIISIOIIDIIDIOUIOIIUIIIDIUIIUIDIUOIUIOIIUIIOIO Oot nit iin tts 
S*TEST 4 CLEAR AND READ HIGH 20 REGISTERS LOWER 16 BITS 
o* THIS TEST WILL ENSURE THAT MAPL20 - MAPL37 WILL ALL HOLD ZERO. 
;* IF ANY REGISTERS ARE NOT ZERO AFTER BEING CLEARED, THEIR ADDRESS AND 
y* CONTENTS ARE REPORTED. IF ALL THE REGISTERS HAVE RANDOM DATA THEN 
5* PROBABLY NO WRITE PULSE IS BEING GENERATED, BUT IF THE ERROR IS IN 
s@ ONLY ONE REGISTER OR IN ONE BIT IT MIGHT BE MORE DIFFICULT TO FIND. 
:* IT IS POSSIBLE THAT THE COUNT PATTERN TEST FOR MAPL20 = MAPL37 WILL 
;* GIVE MORE HELP. 
+: ERR EERE REE REE EERE RRR RARER EERE E REREAD 
010674 TS14: 
010674 000004 SCOPE 
010676 012767 010764 170416 MOV #TSTS,NXTTST _— STARTING ~a 7 hy OF NEXT TEST 
ESCAPE ON PARITY ERRORS H 
1051 010704 072700 170300 208: MOV #MAPL 20 ,RO LOAD STARTING MAP REGISTER ADDR 
1052 010710 012767 010716 170170 MOV #i$,$LPERR ;SET LOOP ON ERROR POINTER HERE 
1053 010716 000240 1$: NOP 
1054 010720 005010 CLR (RO) ;CLEAR MAP REGISTER 
1055 010722 011067 170244 MOV (RO) ,$TMPO [SEE IF MAP REGISTER IS ZERO 
1056 01072€ 001402 BEQ 2$ [BRANCH IF REGISTER IS ZERO 


1057 010730 004767 173322 JSR PC ,WRITEERROR :REPORT AND LOG FRROR 
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T% CLEAR AND READ HIGH 20 REGISTERS LOWER 16 8 SEQ 0049 
1058 010734 062700 000004 23: ADD #4 RO z:POINT TO NEXT REGISTER 
1059 010740 022700 179374 CMP WMAP! 37,R0 ;SEE IF THIS SECTION IS TESTED 
1060 070744 103364 BHIS 1$ “BRANCH IF NOT 
1061 010746 012767 010704 170132 MOV #20$.,$LPERR INITIALIZE Mts oo IN CASE 
1062 OF INTERMITTENT FAULTS. 
1063 010754 (05767 170276 TST ERRCNT ;WERE THERE ANY ERRORS ON THIS 
1064 010760 001401 BEQ TSTS + ;BRANCH IF NO ERRORS 
1065 010762 104005 EMT+ 5 
1066 ;HOLD ZERO 
1067 
1068 
1080 RRR AARAAEEEAEERERAAREAAARARAAEARARARARAEARARARRERAKEERAEAEEKRAKREHRHARE 
;*TEST 5 CLEAR AND READ HIGH 20 REGISTERS UPPER 6 BITS 
:* THIS TEST WILL ENSURE THAT MAPH20 = MAPH37 WILL ALL HOLD ZERO. 
3* IF ANY REGISTERS ARE NOT ZERO AFTER BEING CLEARED, THEIR ADDRESS AND 
;* CONTENTS ARE REPORTED. IF ALL THE REGISTERS HAVE RANDOM DATA THEN 
i* PROBABLY NO WRITE PULSE IS BEING GENERATED, BUT IF THE ERROR IS IN 
;* ONLY ONE REGISTER OR IN ONE BIT IT MIGHT BE MORE DIFFICULT TO FIND. 
:* IT IS POSSIBLE THAT THE COUNT PATTERN TEST FOR MAPH20 = MAPH37 WILL 
:* GIVE MORE HELP. 
°@ 
Prreertiti ttt i tii ii titi iti titi titi iii ir iti iit titi titi 
010764 TSTS: 
010764 000004 SCOPE 
010766 012767 011054 170326 MOV #TSTO.NXTTST ZSAVE STARTING ADDRESS OF NEXT TEST 
sFOR ESCAPE ON PARITY ERRORS 
1081 010774 012700 170302 208: MOV #MAPH20 ,RO ;LOAD STARTING MAP REGISTER ADDR 
1082 011 012767 011006 170100 MOV #1$,$LPERR ;SET LOOP ON ERROR POINTER HERE 
1083 011 000240 1$: NOP 
1084 011010 005010 CLR (RO) :CLEAR MAP REGISTER 
1085 011012 011067 170154 MOV (RO) ,STMPO ;SEE IF MAP REGISTER IS ZERO 
1086 011016 001402 BEQ 2s [BRANCH IF REGISTER IS ZERO 
1087 011020 004767 173232 JSR PC,WRITEERROR ;REPORT AND LOG ERROR 
1088 011024 062700 000004 e$: ADD #4,R0 :POINT TO NEXT HIGH REGISTER 
1089 011030 022700 170376 CMP #MAPH37,RO ;SEE IF THERE ARE MORE REGS LEFT 
090 011034 103364 BHIS 1$ [BRANCH IF MORE REGS TO TEST 
1091 011036 012767 010774 170042 MOV #20$.$LPERR Z INITIALIZE LOOPING POINTER IN CASE 
1092 : OF INTERMITTENT FAULTS 
1093 011044 005767 170206 TST ERRCNT :WERE THERE ANY ERRORS ON THIS TEST 
1094 011050 001401 BEQ TST6 + : BRANCH IF NO ERRORS 
1095 011052 104006 EMT+ 6 
1096 ;HOLD ZERO 
1097 
1108 CLARA EAR AERERRAEAERERARERAARARAARAREARAAEAARAERARARRANRES 
s*TEST 6 DATA PATH TEST TO MAP REGISTER LOWER 16 BITS 
** 
:* THIS TEST WILL ENSURE THAT THE DATA PATH TO AND “ee THE UNIBUS 
;* MAP REGISTERS IS FUNCTIONING PROPERLY. IT RUNS A COUNT PATTERN 
;* THROUGH MAPLOO, AND IF IT DETECTS AN ERROR THE EXPECTED COUNT 
it AND THE RECEIVED COUNT ARE REPORTED. THE TEST THEN TRIES TO RUN 
;* THE COUNT THROUGH MAPL20, IN CASE THE ERROR IS IN THE LOWER 
;* GROUP OF REGISTERS AND NOT IN THE DATA PATH, 
+: COBB SRSRSASBARSASASASZASESSE SRSA RRS RRR RRR RR RR RRRR RR RRRRRR RRR RRR SRR REE ED 
011054 TST6: 
011054 000004 SCOPE 


“——-" 


ate 11/44 UBI MAP 


MACRO M1111 


DATA PATH TEST TO MAP REGISTER LOWER 16 BIT 


011056 

011064 
1109 011072 
1110 011074 
1117 011076 
1112 011104 
1113 011106 
1114 011112 
1115 011116 
1116 011120 
1117 011122 
1118 011124 
1119 
1120 011126 
1121 011132 
1122 011134 
1123 011136 
1124 011144 
1125 011146 
1126 011152 
1127 011156 
1128 011160 
1129 011162 
1130 011166 
113% 011170 

011170 
1132 011172 
1133 
1134 
1145 

011200 

011200 

011202 
1146 011210 
1147 011212 
1148 011214 
1149 011222 
1150 011224 
1151 011230 
1152 011234 
1153 071236 
1154 011240 
1155 011242 
1156 011244 
1157 011246 





012767 
012767 


104010 
012767 


000004 
012767 


0004 
005202 
022702 


011200 
000012 


011104 


157066 
157062 


000002 
011144 
157126 
157122 


060002 


011072 


011322 


011222 


170202 
156746 


170236 
170114 


170002 


167742 


167706 


170112 


167664 


20$: 


2$: 


3$: 
128: 


4$: 


10$: 
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#TST7,NXTTST 


#12,$TIMES 
R3 


Re 
#1$,$LPERR 


R2,MAPLOO 
MAPLO0,RO 


2s 
7 
3$ 


#2,R2 
i$ 


10$ 
#12$,$LPERR 
R3,MAPL 20 
MAPL20,R1 
R3,R1 


4$ 
#2 ,R3 
2$ 


10 
#20$,$LPERR 


try STARTING ADDRESS OF NEXT TEST 
FOR ESCAPE ON PARITY ERRORS 

:D0 12 ITERATIONS 

START COUNT PATTERN AT 0 

[START COUNT PATTERN AT C 

[SET LOOP ON ERROR POINTER TO 1$ 


;LOAD MAP REG 0 LOW 16 BIT 

READ CONTENTS OF MAP “REGISTER 0 
; COMPARE DATA & PATTE 

;BRANCH IF DATA DOES NOT MATCH 


;BRANCH TO TEST DATA PATH WITH 
7A REGISTER OF THE NEXT GROUP 
ZADD 2 TO COUNT PATTERN 


68 
;SET LOOP ON ERROR POINTER TO 12$ 


LOAD MAP REG 20 LOW 16 BITS 
“READ DATA STORED IN MAP REGISTER 20 
;COMPARE DATA & PATTERN 
; CAUGHT ERROR,NOW SEE IF SAME. 
ADD 2 TO COUNT PATTERN 
;BRANCH IF COUNT NOT 0 


;SET LOOP POINTER TO START OF TEST 


3 MARSA AAAAALZAAAASA ASRS ERR SRERES ESE SERRA RRR RR RR RRR ASRS RRS ASAD SD SD | 


;#TEST 7 


BeBe Be Be 
weseeene es 


—4q8e he 
~ 
pa 


1$: 


2s: 


MAP REGISTERS IS FUNCTIONING PROPERLY. 
AND IF IT DETECTS AN ERROR THE EXPECTED COUNT 
AND THE RECEIVED COUNT ARE REPORTED. 

COUNT THROUGH MAPH20, IN CASE THE ERROR IS IN THE LOWER 
GROUP OF REGISTERS AND NOT IN THE DATA PATH. 


THROUGH MAPHOO, 


THE 





DATA PATH TEST TO MAP REGISTER UPPER 6 BITS 
THIS TEST WILL ENSURE THAT THE DATA PATH TO AND FROM THE UNIBUS 


#TSTIO,NXTTST 


R2 

R3 
#1$_,$LPERR 
R2, @AMAPHO 
MAPHOO ,RO 
R2,R0 

2$ 

if 

3¢ 


R2 
#100,R2 





IT RUNS A COUNT PATTERN 


THE TEST THEN TRIES TO RUN 


MARRS SAASZASLALA £22 SESE SESARSSERER ESLER ARR RAR RRR RAR SRR AR RASA RSS DS S| 


sae START ING not ay hi OF NEXT TEST 
;FOR ESCAPE ON PARITY ERRORS 

START COUNT PATTERN AT 0 

[START COUNT PATTERN AT 0 

;SET LOOP ON ERROR POINTER TO 1$ 


;LOAD MAP REGO HIGH 6 BITS 

;READ BACK MAP REG 00 UPPER SIX BITS 
; COMPARE DATA AND PATTERN LOADED 
[BRANCH IF DATA IS CORRECT 


;BRANCH TO TRY SECOND BANK OF MAP REGS 
CHANGE DATA PATTERN 
SHAS COUNT REACH MAXIMUM? 


“on 
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DATA PATH TEST TO MAP REGISTER UPPER 6 BIT SEQ 0051 
1158 011252 001363 BNE 1$ ;BRANCH_IF TEST NOT OVER 
1159 011254 000617 Bh 108 [UPPER SIX BIT DATA PATH IS OKAY 
1160 011256 012767 011264 167622 3$: MOV = #12$,$LPERR = ;SET LOOP ON ERROR POINTER TO 12% 
1161 011264 000240 12$: NOP 
1162 011266 610337 170302 MOV —-R3, @#MAPH20 ‘LOAD MAP REG 20 HIGH 6 BITS 
1163 011272 016701 157004 MOV  —- MAPH20,R7 ;READ BACK MAP REG 20 UPPER SIX BITS 
1164 011276 020301 CMP RB, RT [COMPARE DATA AND PATTERN 
1165 017300 001 BNE 48 BRANCH IF DATA DOES NOT MATCH 
1166 011302 005203 INC —_ RB CHANGE DATA PATTERN 
1167 011304 022703 000100 (MP =: #100,,R3 HAS COUNT REACHED MAXIMUM? 
1168 011310 001355 BNE 28 BRANCH IF TEST NOT OVER 
1169 011312 48: 
011312 104010 EMT+ 10 
1170 011514 012767 011210 167564 108: MOV —-#20S,SLPERR SET LOOP POINTER TO START OF TEST 
1184 FL AAAAAAARAAAAAARAEEEREREAREERERREAEREEREREARAARREARAAEARRERERAR ERS 
Z*TEST 10 DUAL ADDRESS LOADS & READS MAP REG'S 
** 
i THIS TEST, ENSURES THAT ONLY ONE, UNIBUS MAP REGISTER 1S LOADED 
:* DURING A ‘MOV  #DATA,@AMAPREG'’ INSTRUCTION. ALL MAP REGISTERS 
:* ARE CLEARED AND ONE REGISTER AT A TIME, STARTING WITH MAPLOO, 
:* IS LOADED A NEGATIVE ONE. THEN, ALL MAP REGISTERS ARE READ, 
:* STARTING WITH MAPH37, AND VERIFIED TO BE ZERO. ANY REGISTER 
: THAT IS NOT ZERO AND WHOSE UNIBUS ADDRESS DOES NOT MATCH THAT 
:* OF THE REGISTER UNDER TEST IS REPORTED TO BE IN ERROR. AT THE 
:* END OF THE TEST A SUMMARY OF ALL DUALED REGISTERS IS GIVEN. 
>? 
errtitte titi iti t titi iti i iii iti ti tii ii tiii titi ii titi titi iii i is, 
011322 75110: 
011322 000004 SCOPE 
011324 012767 011446 167770 MOV -s #TST11,NXTTST —;SAVE_STARTING ADDRESS OF NEXT TEST 
FOR ESCAPE ON PARITY ERRORS 
011332 012767 000144 167646 MOV = #144,$TIMES =; ;D0_144_ ITERATIONS 
1185 011340 012700 170200 208: MOV = #MAPLO,. RO ;LOAD FIRST MAP REG ADDR INTO RO 
1186 011344 012767 011352 167534 MOV #1$,$LPERR SET LOOP ON ERROR POINTER. HERE 
1187 011352 012701 170376 1$: MOV = #MAPH37,R1 PUT ADDRESS OF HIGHEST MAP REG IN R1 
1188 011356 004767 172536 JSR PC, CLRMAP CLEAR ALL MAP. REGISTERS. IN CASE. OF 
1189 ZA ‘FLAKEY' PROBLEM 
1190 011362 000240 NOP 
1191 011364 012710 177777 MOV -—«#177777,(RO) —_; LOAD MAP REGISTER UNDER TEST 
1192 011370 011102 2s: MOV (R1) Re READ MAP REGS STARTING FROM TOP 
1193 011372 001404 BEQ 38 :G0 TO 3$ IF ZERO 
1194 011374 020100 CMP = R}1,RO :SEE IF NON-ZERO ADDRS MATCH 
1195 011376 001402 BEQ = 3$ 0 38 IF MATCH 
1196 011400 004767 172736 JSR PC ,DUALADR SUMP TO SUBROUTINE TO LOG ALL ERRORS 
1197 011404 162701 000002 3$: SUB #2,R1 POINT TO NEXT MAP REGISTER 
1198 011410 022701 170200 (MP #MAPLO,R1 SHAVE ALL REGISTERS BEEN READ 
1199 011414 101765 BLOS 28 :IF NOT CONTINUE TEST 
1200 011416 062700 000002 ADD = #2, RO POINT TO NEXT MAP REGISTER 
1201 011422 022700 170376 (MP #MAPH37,.RO :SEE IF TEST IS OVER 
202 011426 103351 BHIS  _1$ CONTINUE TESTING 
1203 011430 012767 011340 167450 MOV —-#208,SLPERR INITIALIZE LOOPING POINTER IN CASE 
1204 OF INTERMITTENT FAULTS. 
1205 011436 005767 167614 TST —— ERRCNT SEE IF. THERE. WERE ANY ERRORS 
1206 011442 001401 BEQ = TST11 GOTO NEXT TEST IF NO ERRORS 
1207 011444 104014 EMT+ = 14 
1208 ;0N LOADING MAP REGISTERS 
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7*THE NEXT FOUR(4) TESTS RUN A COUNT PATTERN THROUGH EACH 
:*MAP REGISTER, CHECKING FOR STUCK BITS, AND SHORTED PINS. 


MOR RRRERRARARRREBSASLALESESARARA RARER RRL AREA RRR ARRAS R RRR RRR RR RRS ESS OD | 


;aTEST 11 


CNT PATRN LOW 20 MAP REG'S LOW 16 BITS 
THIS TEST WILL_RUN A COUNT PATTERN THROUGH 


IF THE COUNT RECIEVED DOES 


PATTERN LOADED, AND PATTERN EXPECTED ARE REPORTED. 
OF THE TEST A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN 
DETERMINE IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 


MOR RRRRRRRRBAASALASASSLESESAREE RRA RRR REARS RRR RRR RRR RR RAR ARRAS SSS S| 


#TST12,.NXTTST 


+ eee: 
#23, SLPERR 
R2,R4 


#000001 ..R4 
#MAPLOO,RO 


R2, (RO) 
(RO) .R3 
R4,R3 
PC, COUNT 
R3 


#4 ,RO 
#MAPL17,RO 


2t 
#177777,R2 
4$ 

#401,R2 

1$ 
#20$,$LPERR 
ERRCNT 


TST12 
15 


J ng STARTING ADDRESS OF NEXT TEST 


OR ESCAPE ON PARITY ERRORS 


: 2 DO 12 ITERATIONS 


START WITH AN ALL ZERO PATTERN 
;SET LOOP ON ERROR POINTER TO 2$ 
;PUT COUNT IN R4 FOR MASK 


“CLEAR BITS IN MASK FOR PROPER C 
‘LOAD STARTING MAP REGISTER ADDRESS 


. UNIBUS MAP REGISTERS 
* MAPLOO = MAPLT7. NOT MATCH THE 
;* EXPECTED PATTERN THEN THE MAP REGISTER ADDRESS, pa Fh 


OMPARE 


;LOAD MAP REGISTER WITH COUNT PATTERN 
READ MAP REGISTER INTO R3 


; COMPARE MASK WITH DATA 


;BRANCH IF DATA MATC 


HES 
; JUMP TO COUNT TO LOG ALL ERRORS 


;CLEAR DATA HOLDER 


[POINT TO NEXT MAP REGISTER UNDER TEST 


;SEE IF ALL REGISTERS HAVE BEEN LOADED 


BRANCH IF STILL MORE 


; CHANG 
CONTINUE TESTING 


INITIALIZE LOOPING POINTER IN CASE 


TO GO 


[OF INTERMITTENT FAULTS. 
pe IF THERE WERE ANY ERRORS 


CH IF NO ERRORS 
7 IN MAPPING REGISTERS 


DEAR ARERRERERASASRSSLALLSLAARSESERARSR RRR ERAS ERR RRR RRR RRR RRR RASS SSD | 


TST11: 
SCOPE 
011572 167644 MOV 
000012 167522 MOV 
208: CLR 
011506 167412 MOV 
3: MOV 
000001 BIC 
170200 MOV 
2$: NOP 
MOV 
MOV 
CMP 
BEQ 
172672 JSR 
3$: CLR 
000004 ADD 
170274 CMP 
BHIS 
177777 CMP 
BEQ 
000401 _ 
011464 167324 4$: MOV 
167470 TST 
BEQ 
EMT+ 
; TEST 12 


eo Be Be 
sneeue sé 


COUNT PATTERN LOW 20 MAP REGISTERS UPPER 6 BITS 


IF THE COUNT RECIEVED DOES 


ED. AT THE E 


’ 
SLUR EAAAAAAEEAEAREAERERAEKERAARAAAAEREREREAEREKAEARKRRA RRA RHA eee 


THIS TEST WILL_RUN A COUNT PATTERN THROUGH oR MAP REGISTERS 
MAPHOO - MAPH17 CH THE 


° T MAT 

EXPECTED PATTERN THEN THE MAP REGISTER ADDRESS. ~~, a tnd tak 
PATTERN LOADED, AND PATTERN EXPECTED ARE REPORT 

OF THE TEST A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN 
DETERMINE IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 


SEQ 0052 


4-7 





UAAO 11/46 UBI MAP MACRO M1111 20-SEP-79 11: j20, 1PAGE 58-5 
COUNT PATTERN LOW 20 MAP REGISTERS UPPER 6 SEQ 0053 
TSTl2: 
000004 
012767 011716 167520 ATST13,NXTTST : SAVE STARTING ADDRESS OF NEXT TEST 
012767 000144 167376 #144, $TIMES ONS 
005002 R TART WITH AN ALL ZERO PATTERN 
011632 167266 #2$,$LPERR [SET LOOP ON ERROR POINTER TO 2$ 
R2,RG [PUT COUNT IN R4 FOR MA 
177700 #177700,R4 :CLEAR BITS IN MASK FOR PROPER COMPARE 
20 170202 MOV AMAPHOO. RO LOAD STARTING MAP REGISTER ADDRESS 
011634 010210 MOV R2, (RO) ;LOAD MAP REGISTER WITH COUNT PATTERN 
011636 011003 MOV (RO) R3 [READ MAP REGISTER INTO R3 
011640 020403 CMP 4.R5 * COMPARE MASK WITH DATA 
011642 001402 BEQ ‘BRANCH IF DATA MATCHES 
011644 006767 172546 JSR pe, COUNT : JUMP TO COUNT TO LOG ALL ERRORS 
011650 005003 3$: CLR R3 SCLEAR DATA HOLDER 
011652 700 000004 ADD #4 RO :POINT TO NEXT MAP REGISTER UNDER TEST 
011656 022700 170276 CMP #MAPH17,RO ‘SEE IF ALL REGISTERS HAVE BEEN LOADED 
011662 103363 BHIS 2% “BRANCH IF STILL MORE TO GO 
11664 022702 000177 CMP #177,R2 :SEE IF COUNT HAS CYCLED 
011670 001403 BEQ 4$ :BRANCH IF TEST IS DONE 
011672 062702 000001 ADD #1.R2 :CHANGE COUNT PATTERN 
011676 000750 BR 1$ “CONTINUE TESTING 
011700 012767 011610 167200 4$: MOV #208, $LPERR S INITIALIZE LOOPING POINTER IN CASE 
‘OF INTERMITTENT FAULTS. 
011706 005767 167344 TST ERRCNT [SEE IF THERE WERE ANY ERRORS 
011712 001401 BEQ TST13 *:BRANCH IF NO ERRORS 
011714 104013 EMT+ 13 
:IN MAPPING REGISTERS 
1238 
1239 
1240 
1250 FLERE ARA AREER AREAREARERAEAAEERAEKREREAKEERAERRERERAERAERRAERRARRRARRRERRE - 
T*TEST 13 CNT PATRN HI 20 MAP REG'S LOW 16 BITS 
te THIS TEST WILL RUN A COUNT PATTERN THROUGH UNIBUS MAP REGISTERS 
:* MAPL20 = MAPL37. IF THE COUNT RECIEVED DOES NOT MATCH THE 
:* EXPECTED PATTERN THEN THE MAP REGISTER ADDRESS, DATA RECEIVED. 
:* PATTERN LOADED, AND PATTERN EXPECTED ARE REPORTED. AT THE E 
* OF THE TEST A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN 
* DETERMINE IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 
DLR ERE REE RE EEREKRRE EERE EREEREEREEREEREEREEERERE ERE 
011716 15113: 
011716 000004 SCOPE 
011720 012767 012042 167374 MOV #TST14,NXTTST SAVE STARTING ADDRESS OF NEXT TEST 
‘FOR ESCAPE ON PARITY ERRORS 
011726 012767 000012 167252 MOV #12, $TIMES +:D0 12 ITERATIONS 
1251 011734 005002 208: CLR R2 ‘START WITH AN ALL ZERO PATTERN 
011736 012767 011756 167142 MOV #2$,$LPERR *SET LOOP ON ERROR POINTER TO 2$ 
011744 010204 1$: MOV R2,R4 ‘PUT COUNT IN R4 FOR MASK 
011746 042704 000001 BIC #000001 ,R4 “CLEAR BITS IN MASK FOR PROPER COMPARE 
011752 012700 170300 MOV #MAPL 20.RO *LOAD STARTING MAP REGISTER ADDRESS 
011756 000240 2$: NOP 
011760 010210 MOV R2, (RO) :LOAD MAP REGISTER WITH COUNT PATTERN 
011762 011003 MOV (RO) .R3 [READ MAP REGISTER INTO R3 
011764 020403 CMP R4,R3 “COMPARE MASK WITH DATA 





C 
CKKUAAO 11/464 UBI MAP MACRO M1111 20=SEP=79 11.20 PAGE 58-6 
113 CNT PATRN HI] 20 MAP REG'S LOW 16 BITS : SEQ 0054 
011766 001402 BEQ 3s ;BRANCH IF DATA MATCHES 
011770 004767 172422 JSR PC, COUNT JUMP TO COUNT TO LOG ALL ERRORS 
911774 005003 zs: CLR R3 SCLEAR DATA HOLDER 
011776 062700 000004 ADD #4 RO ‘POINT TO NEXT MAP REGISTER UNDER TEST 
012002 022700 170374 CMP mniP 37, RO ‘SEE IF ALL REGISTERS HAVE BEEN LOADED 
012006 103363 BHIS “BRANCH IF STILL MORE TO GO 
012010 022702 177777 CMP 4177777, R2 [SEE IF COUNT HAS CYCLED 
012014 001403 BEQ 4$ ‘BRANCH IF TEST IS DONE 
012016 062702 000401 ADD #401,R2 ‘CHANGE COUNT PATTERN 
012022 000750 BR 1$ : CONTINUE TESTING 
012026 012767 011734 167054 4$: MOV #208, $LPERR S INITIALIZE LOOPING POINTER IN CASE 
[OF INTERMITTENT FAULT 
012032 005767 167220 TST ERRCNT “SEE IF THERE WERE ANY ERRORS 
012036 001401 BEQ TST14 + ; BRANCH IF NO ERRORS 
012040 104012 EMT + 12 
7 IN MAPPING REGISTERS 
1252 
1253 
1263 LLU ERE EERE REE REE EERE EERE ERA RE RREER ARERR R ERR ERER RE EE 
S*TEST 14 CNT PATRN HI 20 MAP REG'S UPPER 6 BITS 
* THIS TEST WILL RUN A COUNT PATTERN THROUGH UNIBUS MAP REGISTERS 
* MAPH20 = MAPH37. IF THE COUNT RECIEVED DOES NOT MATCH THE 
> EXPECTED PATTERN THEN THE MAP REGISTER ADDRESS, DATA RECEIVED, 
te PATTERN LOADED, AND PATTERN EXPECTED ARE REPORTED. AT THE END 
* OF THE TEST A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN 
* DETERMINE IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 
SS scree ee ne ont hee oe ae 
012042 TST14: 
012042 000004 SCOPE 
012044 012767 012330 167250 MOV #TSTIS,NXTTST : SAVE STARTING ADDRESS OF NEXT TEST 
“FOR ESCAPE ON PARITY ERRORS 
012052 012767 000144 167126 MOV #144,$TIMES :D0 144 ITERATIONS 
1264 012069 005002 20$: CLR R2 START WITH AN ALL ZERO PATTERN 
012062 012767 012102 167016 MOV #28, SLPERR SET LOOP ON ERROR POINTER TO 2% 
012070 010204 1$: MOV T COUNT IN R4 FOR MASK 
012072 042704 177700 BIC 4999700, R4 “CLEAR BITS IN MASK FOR PROPER COMPARE 
012076 012700 170302 MOV #MAPH20.RO ‘LOAD STARTING MAP REGISTER ADDRESS 
012102 000240 2$: NOP 
012104 010210 MOV R2, (RO) sLOAD MAP REGISTER WITH COUNT PATTERN 
012106 011003 MOV (RO) ,R3 [READ MAP REGISTER INTO R3 
012110 020403 CMP R4 RS [COMPARE MASK WITH DATA 
012112 001402 BEQ 3g" ;BRANCH IF DATA MATCHES 
012114 004767 172276 JSR PC, COUNT ‘JUMP TO COUNT TO LOG ALL ERRORS 
012120 005003 3$: CLR R3 “CLEAR DATA HOLDER 
012122 062700 000004 ADD #4,RO :POINT TO NEXT MAP REGISTER UNDER TEST 
012126 022700 170376 CMP #MAPH37 RO “SEE IF ALL REGISTERS HAVE BEEN LOADED 
012132 103363 BHIS 2% ‘BRANCH IF Sti MORE TO G 
012134 022702 000177 CMP #177.R2 :SEE IF COUNT HAS CYCLED 
012140 001403 BEQ 4$ :BRANCH IF TEST IS DONE 
012142 062702 000001 ADD #1,R2 ; CHANGE COUNT PATTERN 
012146 000750 BR 1$ * CONTINUE TESTING 
012150 012767 012060 166730 4$: MOV #208, $LPERR " INITIALIZE LOOPING POINTER IN CASE 
[OF INTERMITTENT FAUL 
012156 005767 167074 TST ERRCNT SEE IF THERE WERE mu ERRORS 
012162 001401 BEO REL C22 =BRANCH IF NO ERRORS 
012164 104013 EMT+ 13 
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MAP REG'S UPPER € BIT 


160076 
160072 
160 


160186 


KIPAR6 IS MAPPED TO THE 
KIPAR7 IS MAPPED TO THE 


7 IN MAPPING REGISTERS 


AT THIS POINT 22=BIT RELOCATION FROM MEMORY MANAGEMENT 
1S ENABLED, WITH THE KIPAR'*S MAPPED TO PHYSICAL 0-24k. 
UNIBUS (770000) AND 


1/0 PAGE (177600). 


RELC22: TBITR RESTORE THE T BIT TO ITS CONDITION 

;BEFORE THE LAST TEST 

MOV #77406,R0 ;MAKE THE KERNEL I-SPACE PAGES ALL 
74K, UPWARD EXPANDABLE, READ/WRITE 

MOV RO,KIPDRO TKERNEL I=SPACE PAGE 0 

MOV RO,.KIPDR1 KERNEL I-SPACE PAGE 1 

MOV RO,KIPDR2 KERNEL I-SPACE PAGE 2 

MOV RO,KIPDR3 KERNEL I-SPACE PAGE 3 

MOV RO.KIPDR4S KERNEL I-SPACE PAGE 4 

MOV RO,.KIPDRS KERNEL I-SPACE PAGE 5 

MOV RO,KIPDR6 KERNEL I-SPACE PAGE 6 

MOV RO,KIPDR7 KERNEL I-SPACE PAGE 7 

MOV #000 ,KIPARO ;MAP TO PHYSICAL 0 

MOV #200, KIPAR1 MAP TO PHYSICAL 4K - 8k 

MOV #400 ,.KIPAR2 ;MAP TO PHYSICAL 8K - 12k 

MOV #600 ,KIPAR3 ;MAP TO PHYSICAL 12K = 16K 

MOV #1000 ,KIPAR4 MAP TO PHYSICAL 16K = 20K 

MOV #1200 ,KIPARS ;MAP TO PHYSICAL 20K - 24K 

MOV #170000,KIPAR6 ;MAP TO UNIBUS 


MOV #177600,KIPAR7 ;MAP TO I/O PAGE 
MOV #81T0,MMRO ENABLE FULL 18-BIT MAPPING 
MOV #B1TS MMR ENABLE 22-BIT MAPPING 


Wht RA aRERRERRSRRESASRRRRSSERSRER RRR SRSA R RR RRA SRR RRR RRR SRR RRS SSS | 


SeTEST 15 MAP REGISTER ADDRESS DECODE TEST 


THIS TEST TRIES TO VERIFY THAT NONE OF THE INPUTS TO THE ADDRESS 
DECODER FOR THE UNIBUS MAP REGISTERS IS STUCK TRUE. 

KIPAR6 IS SETUP TO HOLD 177702 AND R4 HAS THE VIRTUAL ADDRESS 
TO SELECT MAPLOO, THRU KIPAR6. THE TEST THEN CHANGES ONE BIT 

AT A TIME IN PAR6 SO THAT IT SHOULD NEVER REFERENCE MAPLOO. IF 
IT DOES AN ERROR IS REPORTED. 


MARA AARESSALARAAA SESE SERSSSRSAR RARE RASS RAR RRR RRR RRR RRR RRR SSDS ED | 


ee ee ee ee 
seaeeneeee 


Bs Be 


TST15: 
MOV #20%,$LPADR :SET LOGP ON TEST POINTER TO 208 
MOV #208, $LPERR *SET LOOP ON ERROR POINTER TO 20$ 
MOV #15, $TSTNM *SETUP TEST NUMBER AND CLR ERROR FLAG 
MOV $TSTNM, @DISPLAY :DISPLAY TEST NUMBER FOR ALL TO SEE 
TIMOUT=B174 

208: MOV #TIMOUT,CPUEXP ;EXPECTING CPU TIME OUT ON UNIBUS 
MOV #10$_.$LPERR ‘SET LOOP ON ERROR POINTER TO 10$ 
MOV #177702,KIPAR6 :PUT MAP REG 0 ADDR IN PAR6 
MOV #175254. ‘PATTERN FOR TESTING. 
MOV R2, [LOAD MAP REGISTER 0 
MOV #81T11,R0 ‘SET BIT 11 TO FLOAT THRU PAR6 
MOV #140000,R4 *VIRT.ADDR. TO SELECT PAR6 

1$ xOR RO,KIPAR6 “CHANGE A BIT OF MAP REG O'S ADDR 


SEQ 0055 





: > 
CKRUAAD 11/46 UB] MAP MACRO M1111 20-SEP=79 11:20 PAGE 58-8 
115 MAP REGISTER ADDRESS DECODE TEST SEQ 0056 
1316 012426 000240 108: NOP 
1317 012430 011401 MOV (R4&),R1 ;READ LOCATION POINTED TO BY PAR6 
1318 012432 020201 CMP R2,R1 ZSEE IF DATA FETCHED MATCHES PATTERN 
1319 012434 001007 BNE 3$ ;BRANCH IF NOT SAME 
1320 012436 012714 000000 MOV #0, (RS) :TRY TO CLEAR THIS LOCATION 
1321 012442 005737 170200 TST aAMAPL 0 ;SEE IF MAP REG O GOT CLEARED 
1322 912446 001001 BNE 2$ ;BRANCH IF MAP REG NOT ZERO 
1323 012450 104014 —EMT+ 14 
1324 :DIFFERENT IN ADDRESS FROM 770200 
1325 012452 010114 2$: = MOV R71, (RG) sRELOAD THE LOCATION 
1326 012454 074067 157674 3$: xOR RO, KIPAR6 sRESTORE BiT TO ORIGINAL STATUS 
1327 012460 006200 ASR RO ;RIGHT SHIFT ONE PLACE 
1328 012462 020027 000001 CMP RO,41 ;SEE IF TEST IS OVER 
1329 012466 001355 BNF 1$ ;BRANCH TO CONTINUE TEST 
1330 012470 012767 012360 166410 MOV #20$,$LPERR ZSET LOOP POINTER TO START OF TEST 
ut +34 012476 005067 166564 CLR CPUE XP ;ZERO EXPECTED CPU TRAP FLAG 
1345 LR EAE ERE AREER RARER ERR EE 
seTEST 16 DATA PATH, UNIBUS TO MAIN MEMORY 
:* | 
i* THIS TEST RUNS A COUNT PATTERN THROUGH A MEMORY LOCATION VIA 
;* THE UNIBUS. THE UNIBUS MAP IS LEFT OFF DURING THIS TEST SO 
s@ THAT THE ADDRESS IS NOT RELOCATED. THE TEST TRIES TO LOAD THE 
it PATTERN INTO ADDRESS 040000 (8K) BUT IF THE MAP JUMPERS ARE 
3s SET NOT TO RESPOND TO THAT ADDRESS THE NEXT 4K IS TRIED UNTIL 
;* THE TEST GETS TO MAIN MEMORY FROM THE UNIBUS. IF THIS TEST 
i* DETERMINES THAT IT CANNOT GET TO MAIN MEMORY FROM THE UNIBUS 
3* IT REPORTS THE FACT AND SKIPS THE NEXT TEST FOR VERIFICATION. 
Lee eee ERE RRR EERE EERE EERE EER ERE RE RRR EERE EER ER ERE EER 
072502 TST 16: 
012502 000004 SCOPE 
012504 012767 012734 166610 MOV ATSTI7.NXTTST ; SAVE STARTING ADDRESS OF NEXT TEST 
sFOR ESCAPE ON PARITY ERRORS 
012512 012767 000012 166466 MOV #12, $TIMES ::D0 12 ITERATIONS 
1346 012520 006767 171374 20$: JSR PC, CLRMAP ;CLEAR ALL MAP REGISTERS 
1347 012524 012767 000020 166534 MOV #TIMOUT,CPUEXP ;TIMEOUTS MIGHT OCCUR IN THIS TEST. 
1348 012532 012767 012540 166346 MOV #10$, $LPERR ;SET LOOP ON ERROR POINTER TO 10% 
1349 012540 012767 170400 157606 10$: MOV #170400, KIPAR6 ;START WITH ADDRESS 8k FROM UNIBUS 
1350 012546 005067 166516 1$: CLR PCPUER ;CLEAR ERROR CONDITION LOCATION 
1351 012552 000240 NOP 
1352 012554 013700 140000 MOV a@4140000,R0 ; TRY TO READ ADDRESS POINTED TO BY PAR6 
1353 012560 005767 166504 TST PCPUER ;SEE IF READ OF ADDRESS TIMED OuT 
1354 012564 001412 BEQ 2$ ‘BRANCH IF REFERENCE WAS GOOD 
1355 012566 062767 000200 157560 4$: ADD #200, KIPAR6 ;TRY NEXT 4K BLOCK OF MEMORY 
1356 012574 022767 177600 157552 CMP #177600,KIPAR6 ; : SEE Ir YOU'VE POINTED TO I/O PAGE 
1357 012602 0601361 BNE 1$ ;BRANCH IF NOT 
1358 012604 104015 cMT+ 15 
1359 012 000167 000252 JMP SIZEJ ; JUMP TO SIZE JUMPER TEST 
1360 012612 016767 157536 157532 ?2$: MOV KIPAR6,KIPARS ;PUT PAR6 INTO PARS 
1361 012620 042767 170900 157524 BIC #170000, KIPARS :MAKE PARS A NON UNIBUS ADDRESS 
1362 012626 012737 173214 120000 MOV #173214, a4#120000' ; T RANDOM NUMBER INTO TEST LOCATION BY FAST BuS 
1363 012634 013701 140000 MOV avl4 0000, R1 READ TEST LOCATION VIA UNIBUS 
1364 012640 022701 173214 CMP #173214,R1 ;SEE if DATA WAS READ PROPERLY 
1365 012644 001403 BEQ 3$ ‘DATA OKAY NOW VERIFY DATA PATH 
1366 012646 020001 CMP RO,R} ;SEE IF DATA CHANGED FROM FIRST READ 
1367 012650 001001 BNE 3$ ;BRANCH IF DATA CHANGED 


= 
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116 DATA PATH, UNIBUS TO MAIN MEMORY SEQ 0057 
1368 012652 000745 BR ‘$ : TRY NEXT 6K BLOCK 
1369 012654 005001 z$: CLR R1 [CLEAR REGISTER TO HOLD COUNT 
1370 012656 012767 012670 1466222 MOV #11$,$LPERR =SET LOOP ON ERROR POINTER TO 118 
1371 012664 012702 140000 MOV #140000 ,R2 [LOAD VIRTUAL ADDRESS iNTO R2 
1372 912670 000240 118: NOP 
1373 012672 010112 S$: MOV R1, (R2) :LOAD COUNT INTO TEST LOCATION VIA U.R. 
1374 012674 011200 MOV (R32) .RO “READ TEST LOCATION BACK VJA UNIBUS 
1375 012676 020100 CMP R1,R0 ‘COMPARE COUNT WITH DATA READ 
1376 012700 001402 BEQ 6$ ‘BRANCH IF DATA MATCHES 
1377 012702 004767 171600 JSR PC ,UBCOUNT :COUNT FAILED REPORT ERROR 
1378 012706 005201 ‘8: INC R1 ‘INCREASE COUNT 
1379 012710 001370 BNE 5$ “BRANCH IF COUNT HASN'T CYCLED 
1380 012712 005767 166340 TST ERRCNT ‘WERE THERE ANY ERRORS ON THIS TEST 
1381 012716 001401 BEG 19$ “BRANCH IF NO ERRORS ON THIS TEST 
1282 012720 104016 EMT + 16 
1383 sDATA PATH 
1384 012722 012767 912520 166154 19%. MOV #20$,$LPERR SET LOOP POINTER TO START OF TEST 
1385 012730 005067 166332 CLA CPUE XP SZJERO EXPECTED CPU TRA? CONDITION 
1387 
1401 fF TATA AAAARARAAAARAAAARARHRARAAARAEARARARARARAEARARARRARARARRREARRRESE 
-@TEST 17 MAP DOESN'T RELOCATE IF NOT ENABLED 
8 THIS TEST VERIFIES THAT THE UNIBUS MAP DOES NOT RELOCATE IF BITS 
sa OF MMP3 IS NOT SET. THE TEST ASSUMES THAT THE PREVIOUS TEST HAS 
:* RUN SUCCESSFULLY AND LEFT KIPAR6 POINIING TO THE FIRST UNIBUS | 
:* MAPPING REGISTER THAT THE UNIBUS MAP WILL RESPOND TO GREATER | 
:* THAN OR EQUAL TO MAPREG #2. KIPARS IS ALSO POINTING TO THE 
:* SAME MEMORY BASE ADDRESS EXCEPT IT POINTS OVER THE FASTBUS. | 
te THE TEST THEN SETS ONE BIT IN EACH A.L.U. OF THE UNIBUS MAP 
:* AND TRIES TO REFERENCE MAIN MEMORY OVER THE UNIBUS. SINCE THE 
:* MAP IS NOT ENABLED THE LOAD WILL GO TO MAIN MEMORY UNRELOCATED. 
RRR RRR ERR RRR EERE EE EERE EERE EERE ERR R EERE ER EERE REE 
012734 TST17 
012734 000004 SCOPE 
012736 012767 013046 166356 MOV ATST20,NXTTST : SAVE STARTING ADDRESS OF NEXT TEST 
ESCAPE ON PARITY ERRORS 
1402 012744 012767 000020 166314 208: MOV #1 IMOUT , CPUEXP cmIGHT TIME OUT OVER UNIBUS 
1403 012752 012767 013010 166126 MOV #10$,$LPERR ‘SET LOOP ON ERROR POINTER TO 10$ 
1404 012760. 016700 157370 MOV KIPAR6,RO ‘PUT UNIBUS ADDRESS OF MAP REG IN RO 
1405 012764 072027 177773 ASH #-5,RO “RIGHT SHIFT RO 5 PLACES 
1406 012770 942700 007400 BIC #007400,RO “STRIP OFF EXTRANEOUS BITS. 
1407 012774 012720 021042 MOV #021042, (RO)+ SET BOTTOM BIT IN EACH ALU 
1408 013000 012710 000042 MOV #42, (RO) ‘SET BOTTOM BIT IN EACH ALU 
1409 013004 005037 120000 CLR 52130000 ‘CLEAR TEST LOCATION VIA FAST BUS 
1410 013010 000240 08: NOP 
1411 013012 012737 043207 140000 MOV #43207,a4140000 ; ; LOAD TEST LOCATION VIA UNIBUS 
1412 HIS LOAD SHOULD NOT BE RELOCATED 
1413 on THE _UNIBUS MAP, SINCE BITOS OF 
1414 >MMR3 1S CLEAR. 
1415 013020 013703 120000 MOV @4120000,R3 *READ test" LOCATION VIA FAST BUS 
1416 013024 022703 043207 CMP #43207,R3 “SEE IF DATA MATCHES 
1417 013030 001401 BEQ 1$ ‘BRANCH IF DATA GOOD 
1418 013032 104017 EMT+ 17 
1419 013034 012767 0127446 166044 18: MOV #208, $LPERR :SET LOOP POINTER TO START OF TEST 
1420 913042 005067 166220 CLR CPUE XP *2ERO EXPECTED CPU TRAP CONDITION 





i 






























1621 
1422 
1432 


G00004 
013050 012767 013420 


013056 012767 000001 
1433 013064 

013064 012767 013114 

013072 012767 913114 

013100 012767 000020 

013106 016777 165766 


000020 
1435 013122 012700 170200 
020000 


1438 013134 022700 170374 


00020 
1444 013166 012702 125252 






1453 013224 000167 174550 
1454 013230 016767 157114 
1455 013236 016767 157106 
1456 013244 060167 157100 
1457 913250 022767 177600 
1458 013256 14 


















1464 01 005767 1 

1465 013304 001045 

1466 013306 026727 165730 
001004 


026727 165722 
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117 MAP DOESN'T RELOCATE IF NOT ENABLED 


166244 


166144 


172516 
157166 


157130 


166004 
166000 


157072 


170000 
177400 
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WEAR RRRRRRRRRRRRRRRR RASS RRR RR RRR RR RRR RR RRR RR RRR RRR RRR RRR SRR ERED DS 


+1 


ee ee ee ee 
see eee* 


1S$120: 


SIZEJ: 


20$: 
1$: 


es: 


3$: 
S$: 


‘a % 


S*TEST 20 


SIZE JUMPER LOCATION 


THIS TEST DETERMINES THE SETTING OF THE JUMPERS ON THE UNIBUS 
MAP WHICH ALLOW THE MAP TO RESPOND TO THOSE ADDRESSES BETWEEN 


THE J 


UMPER RANGE. THE DEFAULT SETTING ALLOWS THE MAP TO RESPOND 


TO ADDRESSES 000000 - 757776 ON THE UNIBUS. IF THE JUMPERS ARE 
NOT SET IN THEIR DEFAULT POSITION AN ERROR MESSAGE IS GIVEN. 


© 
WERReRRRRRSSRRSASR RRR SRA R RRR RRR RR RRR RRR RR RR RRR RRA RRR RAS RRS RRS SS SD | 


SCOPE 
MCV 


#TST21,.NXTTST con STARTING ADDRESS OF NEXT TEST 
OR ESCAPE ON PARITY ERRORS 
#1,$TIMES DO 1 J TERATION 


#20$,$LPADR SET LOOP ON TEST POINTER TO 20% 
#20$,$LPERR SET LOOP ON ERROR POINTER TO 20% 
#20,$TSTNM ;SETUP TEST NUMBER AND CLR ERROR FLAG 
STSTNM,@DISPLAY :DISPLAY TEST NUMBER FOR ALL TO SEE 
#TIMOUT , CPUE XP 7 EXPECTING CPU TIME OUT ON UNIBUS 


LO,RO 
#20000, (RO) + :LOAD 4K INTO ALL MAP REGISTERS 


(RO) + ‘INSURE THAT ALL REGS HAVE UPPER BITS CLR 

#MAPL37,RO [SEE IF LAST REG IS LOADED 

1$ :BRANCH IF THERE ARE MORE TO LOAD 

#B115, a4MMR3 “TURN ON MAP RELOCATION 

M1yPPe RO RO STHIS WILL BE USED 0 SELECT PAR 4 

#170000.KIPAR4 ;WE START TESTING WITH MAP 0. 

#200,R1 : CONSTANT USED TO ADD TO P 

#105252.R2 [CONSTANT TO LOAD INTO Socal ion 37776 
an377 “CLEAR TEST LOCATION 

R2 (ROD ‘TRY TO LOAD TEST CELL THROUGH MAP 

a4#37776,R2 ‘SEE IF TEST LOCATION WAS LOADED 

38 ‘BRANCH IF IT WAS LOADED 


:CELL_NOT LOADED, TEST NEXT MAP REG 
#179600 KIPARG :SEE IF YOU'RE POINTING *O I/O PAGE 
$3 :GO TYPE NEXT MAP REGISTER 


START :RESTART PROGRAM 
KIPARG,LOWEST :FOUND THE LOWEST USABLE MAP REG 
KIPARG,HIGEST THIS WILL END UP BEING LAST USABLE REG 
R1,KIPARS TRY NEXT MAP REG TO SEE IF IT RESPONDS 
#177600, KIPAR4 SEE IF ALL MAP REGS HAVE BEEN TRIED 

7$ “BRANCH IF ALL ARE DONE 


a437776 ;CLEAR TEST LOCATION 

R2, (RO) ;TRY TO LOAD TEST CELL THROUGH THE MAP 
a#37776,R2 [SEE IF TEST LOCATION WAS LOADED 

4$ ;BRANCH IF IT WAS LOADED 

CPUE XP ;NO_ CPU TRAPS EXPECTED IN NEXT TEST 
$PASS SEE IF THIS IS FIRST PASS 


TST21 3:GO TO NEXT TEST IF NOY THE FIRST PASS 
LOWEST 4170000 a4 IF ee ae IS DEFAULT 


HIGEST,#177400 ;SEE IF UPPER JUMPER IS DEFAULT. 








SEQ 0058 


— 
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—— 


720 SIZE JUMPER (OCATION 
1669 013324 007601 BEQ o$ ;BRANCH IF JUMPERS DEFAULT. 
1470 013326 a$: 
adi 013326 106022 EMT+ 22 
4 33 
1472 :* SETUP POINTERS TO THE LOWEST AND THE HIGHEST USEABLE 
1478 te MAPPING REGISTERS TO CONTINUE WITH TEST. 
1475 013330 016700 165710 5s: MOV HIGEST.RO 
1476 013334 016701 165702 MOV LOWE ST.R1 
1477 01334C 042700 170000 BIC #170000, RO 
1478 013344 042701 BIC #170000,R1 
1479 013350 072027 177773 ASH #-5 RO :RIGHT SHIFT RO 5 PLACES 
1480 013354 072127 177773 ASH #-5,R1 sRIGHT SHIFT R1 5 PLACES 
1481 013360 062701 170200 ADD #170200,R1 
1482 013364 062700 170200 ADD #170200,R0 
1483 013370 010167 165652 MOV R1,LREGL 
1484 013374 062701 000002 ADD #2.R1 sPOINT TO UPPER BITS OF MAP REG 
1485 013400 010167 165644 MOV R1,LREGU 
1486 013404 010067 165642 MOV RO. HREGL 
1487 013410 062700 000002 ADD #2,R0 :POINT TO UPPER BITS OF MAP REG 
1488 013414 010067 165634 MO\/ RO. HREGU 
1490 
1491 
1506 FF UAAAARARAAAAARAAAAAAARAEAAAERARARHAARAARARAAAARREREAHAEAAAAHERANR EEE 
TeTEST 21 ENSURE THAT THERE IS NO DUAL MAPPING 
** 
:* THIS TEST VERIFIES THAT THERE IS NO DUAL MAPPING. IT CLEARS 
te AL! THE MAP REGISTERS EXCEPT THE ONE UNDER TEST, AND LCADS 
* THAT ONE WITH 0000. THE TEST THEN USES A VIRTUAL ADDRESS 
:* TO SELECT THAT MAP REGISTER AND ADD 17776, SO THAT IT SHOULD 
;* REFERENCE ADDRESS 00037776. A REFERENCE [1S MADE THROUGH EACH 
* OF THE REGISTERS AND ANY THAT FETCH THE CORRECT DATA ARE CHECKED 
8 TO SEE THAT IT WAS THE MAP REGISTER UNDER TEST. IF NOT BOTH THE 
:* MAP REGISTER UNDER TEST AND THE DUALED REGISTER ARE REPORTED. 
Thera voanen teh taal enema aera cane mnenait ee at 
013420 TST21: 
013420 000004 SCOPE 
013422 012767 013616 165672 MOV #TST22,NXTTST : SAVE STARTING ADDRESS OF NEXT TEST 
FOR ESCAPE ON PARITY ERRORS 
013430 012767 000144 165550 MOV #144, $TIMES :D0 144 ITERATIONS 
1505 013436 004767 170456 208: JSR PC ,CLRMAP “CLEAR ALL MAP REGISTERS 
1506 013442 067 165524 CLR $TMPO “USED AS FLAG IN TEST 
1507 013446 012703 100000 MOV #100000,R3 SSELECT P.A.R. 4 OFFSET OF ZERO 
1508 013452 012767 013504 165426 MOV #2$,$LPERR *SET LOOP ON ERROR POINTER TO 2% 
1509 013460 016702 165562 MOV LREGL ,R2 *PUT ADDRESS OF LOWEST USABLE MAP REG IN R2 
1510 013464 016700 165552 MOV LOWEST RO ‘MAP REGISTER UNDER TEST IN RO 
1511 013470 016701 165546 1$: MOV LOWEST.R1 “MAP REGISTER USED IN SURAENT REFERENCE 
1512 013474 012712 040000 MOV 120000. (R2) “LOAD MAP REG UNDER TEST WITH 8K BASE 
1513 013500 010237 040000 MOV R2,a#40000 ‘LOAD TEST LOCATION WITH THE ADDRESS 
1514 [OF THE MAP REGISTER UNDER TE 
1515 013504 010167 156640 2$: MOV R1,KIPARG “LOAD PAR 4 WITH NEXT MAP REG sans ADDR 
1516 013510 011304 MOV (R3) RS ‘READ THROUGH THE MAP 
1517 013512 020402 CMP RG RE [SEE IF CORRECT DATA WAS FETCHED 
1518 013514 001010 BNE 4$- ‘BRANCH IF NO MATCH 
1519 013516 020001 CMP RO,R1 [SEE IF MAP REGS ARE THE SAME 
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121 ENSURE THAT THERE IS NO DUAL MAPPING SEQ 0060 
1§20 013520 001403 BEQ 3$ ;BRANCH IF CORRECT MAP REG WAS USED 
15821 013522 004767 170614 JSR PC ,DUALADR LOG AND REPORT ALL ERRORS 
1522 013526 000403 Se 4$ SKIP NEXT INSTRUCTION 
1523 013530 012767 000001 165474 3$: MOV #1,$TMPO :SET FLAG WHEN ADDRS MATCH 
1524 013536 062701 000200 i$: ADD #200,R1 ‘TRY NEXT MAP REG 
1525 013542 026701 165476 oMP HIGEST,R1 SEE IF ALL HAVE BEEN TRIED 
1526 013546 103356 BHIS 2s ;BRANCH IF STILL MORE TO TRY 
1527 013550 005767 165416 TST $TMPO SEE THAT THERE WAS A SUCCESSFUL MATCH 
1528 013554 001001 BNE 5$ BRANCH IF THERE WAS 
1529 013556 104023 EMT+ 23 
1530 013560 005067 165406 S$: CLR $TMPO CLEAR FLAG FOR NEXT REG 
1531 013564 005012 CLR (R2) CLEAR MAP REG JUST TESTED 
1532 013566 062702 000004 ADD #4 ,R2 POINT TO NEXT MAP REG TO LOAD 
1533 013572 062700 000200 ADD #200,R0 POINT TO NEXT MAP REG UNDER TEST 
1534 013576 026700 165442 CMP HIGEST,RO SEE IF ALL MAP REGS HAVE BEEN TESTED 
1535 013602 103332 BHIS 1$ [BRANCH IF STILL MORE TO TES 
1536 013604 005767 165446 TST ERRCNT SEE IF THERE WERE ANY Canons 
1537 013610 001401 BEO TST22 + BRANCH TO NEXT TEST IF NO ERRORS 
1538 013612 104010 EMT 10 
1539 
1540 
1541 
1542 
1551 FLAP A ASA AERERAEAAAERAAAAERAAEEREREEAARAEARRAREAHANREERERRRRRERE TS 

s*TEST 22 LOAD LOC'S 40000-77776 WITH THEIR ADRES'S 
i* THIS TEST IS USED TO LOAD MAIN MEMORY FROM ADDRESS 00040000 TO 
;* ADDRESS 000077776 WITH ITS OWN ADDRESS. IT THEN CHECKS THAT 
i* PONY OVER THE UNIBUS AND LOGS ANG REPORTS ANY ERRORS THAT 
PPUTeTITICT TTT t tee i it it iii t itt t titi ttt t titi tit t ttt t ttt tt tit 
013614 TST22 
013614 000004 SCOPE 
013616 012767 014074 165476 MOV MTST23,.NXTIST : SAVE STARTING ADDRESS OF NEXT TEST 
-FOR ESCAPE ON PARITY ERRORS 
1552 013624 042767 000040 156664 BIC #B1TS,MMR3 > TURN OFF we RELOCATION 
1553 013632 012767 000400 156570 MOV #400, KIPAR4 ;MAP PAGE 4 TO 8k 
1554 013640 012700 040000 MOV #40000,R0 : STARTING ADDRESS FOR DATA PATTERN 
1555 013644 012701 100000 1$: MOV #100000,R1 :VIRTUAL ADDRESS 
1556 013650 012702 010000 MOV #*D4096,R2 LOAD 4096 LOCATIONS AT A TIME 
1557 013654 010021 2%: MOV RO, (R1)+ ;LOAD PHY. ADDR. INTO EACH MEMORY LOC. 
1558 013656 962700 000002 ADD #2,R0 :POINT TO NEXT PHYSICAL ADDRESS 
1559 013662 077204 SOB R2,2$ “BRANCH IF 4K OF MEMORY NOT LOADED 
1560 013664 062767 000200 156456 ADD #200, KIPARS :POINT TO NEXT 4K BANK OF MEMORY 
1561 013672 022767 001000 156450 CMP #1000, KIPAR4 SEE IF 16K IS LOADED 
Ieee 013700 101361 BH] 1$ “BRANCH IF MORE MEMORY TO LOAD 
tr i* MEMORY FROM 8K = 16K IS NOW LOADED WITH ITS OWN ADDRESS 
** 
1566 013702 012767 013710 165174 MOV #20$,$LPADR SET LOOP ADDRESS TO 20$ 
1567 013710 012767 013746 165170 20$: MOV #4$, $LPERR SET LOOP ON ERROR POINTER TO 4$ 
1568 013716 022767 171000 156430 CMP #171000,KIPAR6 :DID I USE ANY MAP REGISTER 
1569 ;BELOW REGISTER 6 (UB. ADDR 100000) 
1570 013724 101463 BLOS TST23 ; BRANCH TO NEXT TEST IF NOT 
1571 013726 016700 156422 MOV KIPAR6,RO =[OAD PAR6 INTO RO TO GET 
1§72 >THE STARTING DATA PATTERN 





-_ 


ee ee ee ee ee a | 
| heheh 4 oe ot os ¢ 
SBISVSARS 
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072027 
012701 
012702 
000240 
011103 
020003 
001015 
062701 
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LOAD LOC'S 60000-77776 WITH THEIR ADRES'S 


#6 RO 
#140000,87 
#*D4096,R2 


(R1),R3 
RO,R8 
é$ 
#2,R1 


am 


7RO NOW HOLDS THE STARTING DATA PATTERN 
STARTING VIRTUAL ADDRESS 
;PREPARE TO READ 4k AT A TIME 


;READ MAIN MEMORY THRU UNIBUS 
SEE IF THE ADDRESSES MATCH 
;BRANCH IF ERROR 

CHANGE VIRTUAL ADDRESS 


CKKUAAO 11/446 UB] MAP 


1596 014050 
1597 014052 

014052 
1598 014054 
1599 014056 


014074 
014074 
014076 


1614 014104 


062700 
077211 
67 


012767 


000004 
012767 
052767 


000240 
013703 


MACRO M1117 
T22 LOAD LOC'S 40000-77776 WITH THEIR ADRESS 


000002 


000200 
171000 


165210 
165204 
165174 


165174 
165212 


165174 


013710 


014206 
000020 
165116 
000074 
000000 
014150 


165114 
100000 


165012 


165216 
156404 


164736 


6$: 


7$: 


10$: 


19%: 
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aS: < 


#560. kK IPAR6 
#171600, K IPAR6 


108 

RO 
RO,ADRAND 
RO 

R3 
R3,DATAND 
R3 
RO,ADDROR 
R3,DATAOR 
ERRCNT 

7$ 

206 

S$ 

306 

5$ 

ERRCNT 
19$ 

24 
#20$,$LPERR 


SEQ 0062 


3; CHANGE PHYSICAL ADDRESS 
;BRANCH IF 4% OF MEMORY NOT READ 
;POINT TO NEXT BANK OF 4k T 


HRU UNIBUS 
SEE IF THIS POINTS TO 16K PLUS 2 
[BRANCH IF 16K OF MEMORY NOT CHECKED 
; TEST FINISHED, BRANCH TO EXIT 


;GET RO READY FOR AND 


PERFORM LOGICAL AND 
;PuT RO Back AS IT WAS 
GET R3 READY FOR AND 
;PERFORM LOGICAL AND 
;PUT R3 BACK AS IT WAS 
;LOGICAL OR OF PHYSICAL ADDRESS 


SLOGICAL OR OF ADDRESS FETCHED 
31S THIS THE FIRST ERROR HERE? 
;BRANCH IF NOT FIRST ERROR 


; CONTINUE TESTING 

; CONTINUE WITH TEST 

;WERE THERE ANY ERRORS ON THIS TEST? 
;BRANCH IF NO ERRORS ON THIS TEST 


;SET LOOP POINTER TO 20% 


tee Ree eee RR RRR R RRR RRR RRRRRRRERRRRR RRR RAR RRR RRR RR RR RRR R RRS ASSES DI 


3TEST 23 


TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. 


MAIN MEMORY TIMEOUT THROUGH MAP 
THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 


IT USES THE LOWEST 


USEABLE MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 


ZERO 


’ 
WEASRAREASRREBSSSRASLLSSALARALRSESERR SRS RR RASA RRR RRR RRR RRR ARR RDS DDD! 


1$123: 


20$: 


1$: 


ATST24,NXTTST 
#B1T5 .MAR3 


#TIMOUT , CPUEXP 
Sat fo ta 


a4100000 ,R3 


+ STARTING ADDRESS OF NEXT TEST 
OR ESCAPE ON PARITY ERRORS 

TURN MAP RELOCATION BACK ON 

; EXPECTING TIMEOUT IN THIS TEST 

;LOAD PAR 4 WITH LOWEST USABLE MAP REG 

[LOAD UPPER 6 BITS OF LOWEST MAP REG 

LOAD LOWER 16 BITS OF LOWEST MAP REG 

SET LOOP ON ERROR POINTER TO 1$ 


“CPU ERROR REG LOCATION 


; TRY TO READ THRU PAGE 4 
THIS REFERENCE WILL GO OUT ON THE 


;UNIBUS TO SELECT THE aoe USEABLE 
SMAP REGISTER (DEFAULT MAP REG. 0). 
[PHYSICAL ADDRESS 17700000 IS THEN. 
;GENERATED, WHICH SHOULD TIME OUT S.NCE 


SIT IS THE FIRST NON-EXISTANT LOCATION. 


——~ 
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HROUGH 


MAIN MEMORY TIMEOUT T 


1629 014162 


1633 014202 
1634 


1635 
1646 


014224 


1660 
1661 014336 


022767 
01 


000004 
012767 


012767 


012767 


000020 


014104 
165060 


015114 


014250 
165020 
060000 
165000 
140000 


060000 


014320 
164750 
052524 
164730 
145252 


057776 


014370 


165100 


164704 


165104 


164662 


165010 
172354 


164612 


164740 
172354 


164542 
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MAP 


CMP MTIMOUT,PCPUER ;THE UNIBUS SHOULD HAVE TIMED OUT 


ent is ;BRANCH IF CONDITION WAS CORRECT 

+ 

10$: MOV #20$,SLPERR ;SET LOOP POINTER TO START OF TEST 
CLR CPUE XP NO CPU TRAPS EXPECTED FOR AWHILE 

PRA RRR R RENEE REE EERE ERE ER ERR EERE R EERE R RARER EERE 

*TEST 26 RELOCATION TEST USING LOWEST USABLE MAPPING REG 


ef 77 CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 
IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 
ne THe ae JUMPERS HAVE BEEN gh pty TO cisicn MAP REGISTERS 


0 
THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 


ee Be ee . 
anenepeeeee 


2s (RRR RRSSASASASLALASESERRRRARR RR SRSA RA RRR RR RRAR RR RRR RRA RRA RAS ADDS 


1S124: 

SCOPE 

MOV #TST25,.NXTTST Save STARTING ADDRESS OF NEXT TEST 
-FOR ESCAPE ON PARITY ERRORS 


t*THE RELOCATION HERE USES A BASE OF 00060000 AND AN 
:*OFFSET OF 00000 TO PRODUCE AN ADDRESS OF 00060000 


1008: MOV #1$,$LPERR SET LOOP ON ERROR POINTER TO 1$ 

CLR @LREGU ;CLEAR UPPER BITS OF MAPPING REG 

MOV #060000,@LREGL ;LOAD LOWER BITS OF MAPPING REG 

MOV LOWEST ,@#KIPAR6 ;LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
— #140000,R0 SELECT PAR6, OFFSET IS 00000 


1$: 
MOV (RO) ,R1 ;READ LOCATION 060000 THRU THE UNIBUS 
MOV #060000 ,R2 7 THE EXPECTED PHYSICAL ADDRESS IS 060000 
CMP R1,R2 ;SEE IF THE MAP'S FETCH WAS CORRECT 
3 $3 “BRANCH IF FETCHED DATA MATCHES ADDRESS 
+ 


« eTHE RELOCATION HERE USES A BASE OF 00052524 AND 
s*OFFSET OF 05252 TO PRODUCE AN ADDRESS OF 60087776" 


5$: MOV #38. SLPERR :SET LOOP ON ERROR POINTER TO 3$ 

CL LREGU :CLEAR UPPER BITS OF MAPPING REG 

MOV #052934, @LREGL :LOAD LOWER BITS OF MAPPING REG 

MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
mov #145252,R0 SSELECT PAR6, OFFSET IS 05252 


MOV (RO) ,R1 ;READ LOCATION 057776 THRU THE UN 

THE EXPECTED PHYSICAL ADDRESS 15, 037776 
CMP R1,R2 [SEE IF THE MAP'S FETCH WAS CORRE 

BRANCH IF FETCHED DATA MATCHES ADDRESS 


3$: 


“THE RELOCATION HERE USES A BASE OF 00045252 AND 
Z*OFFSET OF 12524 TO PRODUCE AN ADDRESS OF 00087776. 


is: MOV #5$,$LPERR :SET LOOP ON ERROR POINTER TO S$ 


SEQ 0063 


“4 
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T24 RELOCATION TEST USING LOWEST USABLE MAPPING REG SEQ 0064 
014344 005077 164700 CLR @LREGU CLEAR UPPER BITS OF MAPPING REG 
014350 012777 045252 164670 MOV #045252, @LREGL ;.LOAD LOWER BITS OF MAPPING REG 
0143 016737 164660 172354 MOV LOWEST, @#KIPAR6 ;LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
014364 012700 152524 MOV #152524,R0 SSELECT PAR6, OFFSET IS 12524 
014370 000240 S$: NOP 
014372 011001 MOV (RO) ,R1 ;READ LOCATION 057776 THRU THE UN 
014374 012702 057776 MOV #057776,R2 THE EXPECTED Aen ADDRESS Ts 1987776 













014400 020102 CMP R1,R2 ZSEE IF THE MAP'S FETCH WAS CORRECT 
014402 001401 BEQ 6$ BRANCH IF FETCHED DATA MATCHES ADDRESS 

1662 014404 104026 EMT+ 26 

1663 « eTHE RELOCATION HERE USES A BASE OF 00050420 AND AN 

soa8 ; *OF FSET OF 10420 TO PRODUCE AN ADDRESS OF 00061040 

1666 014406 012767 014440 164472 és: MOV Sa fa ;SET LOOP ON ERROR POINTER TO 7$ 
014414 005077 164630 CLR ;CLEAR UPPER BITS OF MAPPING REG 
014420 012777 050420 164620 MOV 7050220, @LREGL ;LOAD LOWER BITS OF MAPPING REG 
014426 016737 164610 172354 MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
014434 012700 150420 MOV #150420. RO SELECT PAR6, OFFSET IS 10420 
014440 000240 7$: NOP 





014442 011001 MOV (RO) ,R1 ;READ LOCATION 061040 THRU THE UN 
014444 012702 061040 MOV #061040,R2 ; THE EXPECTED PHYSICAL ADDRESS Is "961040 
014450 020102 CMP R1,R2 7SEE IF THE MAP'S FETCH WAS CORRECT 
014452 001401 BEQ 8$ BRANCH IF FETCHED DATA MATCHES ADDRESS 
1667 014454 104026 EMT+ 26 
1668 ;*THE RELOCATION HERE USES A BASE OF 00054630 AND AN 
beg 4 :*OFFSET OF 04210 TO PRODUCE AN ADDRESS OF 00061040 
1671 014456 012767 014510 164422 8$: MOV #9$ , SLPERR SET LOOP ON ERROR POINTER TO 9$ 
014464 005077 164560 CLR @LREGU ;CLEAR UPPER BITS OF MAPPING REG 
014470 012777 054630 164550 MOV #054630,@LREGL ;LOAD LOWER BITS OF MAPPING REG 
014476 016737 164540 172354 MOV LOWEST, ,@#KIPAR6 ;LOAD PARS WITH ADDR OF LOWEST MAP REG 
014504 012700 144210 MOV #144210,R0 SELECT PAR6, OFFSET IS 04210 
014510 000240 9$: NOP 
014512 011001 MOV (RO) ,R1 ;READ LOCATION 061040 THRU THE UN 
014514 012702 061040 MOV #061040,R2 :THE EXPECTED PHYSICAL ADDRESS Is 061060 
014520 020102 CMP R1,R2 ZSEE IF THE MAP'S FETCH WAS CORRECT 
014522 001401 BEQ 10$ [BRANCH IF FETCHED DATA MATCHES ADDRESS 
1672 014524 104026 EMT+ 26 


1673 :*THE RELOCATION HERE USES A BASE OF 00044210 AND AN 
1674 = OF FSET OF 14630 TO PRODUCE AN ADDRESS OF 00061040 


1675 

1676 014526 012767 014560 164352 10s: MOV oa iam ;SET LOOP ON ERROR POINTER TO 11$ 
014534 005077 164510 CLR ;CLEAR UPPER BITS OF MAPPING REG 
014540 012777 044210 164500 MOV 7006910, @LREGL ;LOAD LOWER BITS OF MAPPING REG 
014546 016737 164470 172354 MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
014554 012700 154630 MOV #154630,RO ;SELECT PAR6, OFFSET IS 14630 
014560 000240 11$: NOP 







014562 011001 MOV (RO) ,R1 ;READ LOCATION 061040 THRU THE UN 

014564 012702 061040 MOV #061040, R2 : THE EXPECTED PHYSICAL ADDRESS 5. ‘Bst040 
014570 020102 CMP R1,R2 ;SEE IF THE MAP'S FETCH WAS CORRE 

014572 001401 BEQ 12$ [BRANCH IF FETCHED DATA MATCHES ADDRESS 
014574 104026 EMT+ 26 


S*THE RELOCATION HERE USES A BASE OF 00056734 AND AN 


mm 
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124 


1679 
1680 


1681 
01 


RELOCAT! 


014714 


014716 


015032 


MACRO M111 
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: 
USING LOWEST USABLE MAPPING 


014650 


014750 
0 


164302 


164430 
172354 


164232 


164 360 
172354 


164162 


164310 
172354 


164112 


164240 
172354 


s*OFFSET OF 02104 TO PRODUCE AN ADDRESS OF 00061040 


12$: MOV #13$,S$LPERR :SET LOOP ON ERROR POINTER TO 13$ 

CLR @L REGU -CLEAR UPPER BITS OF MAPPING REG 

MOV #056734, @LREGL :LOAD LOWER BITS OF MAPPING REG 

MOV LOWEST, @#KIPAR6 ;LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
mov #142104,R0 ‘SELECT PAR6, OFFSET IS 02104 


MOV (RO) ,R1 ;READ LOCATION 061040 THRU THE UN 


13$: 


IBUS 
MOV #061040, R2 ;THE EXPECTED PHYSICAL ADDRESS rC3 061040 
CMP “SEE IF THE MAP’S FETCH WAS CORRECT 
BEd nue “BRANCH IF FETCHED DATA MATCHES ADDRESS 
t 


“THE RELOCATION HERE USES A pay B OF 00042104 AND AN 
;*OFFSET OF 16734 TO PRODUCE AN ADDRESS OF 00061040 


14$: MOV #15$,$LPERR :SET LOOP ON ERROR POINTER TO 15$ 
CLR a@LREGU [CLEAR UPPER BITS OF MAPPING REG 
MOV #042104,@LREGL :LOAD LOWER BITS OF MAPPING REG 
MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
zs MOV W1S6734. RO SSELECT PAR6, OFFSET IS 16734 
MOV (RO),R1 :READ LOCATION 061040 THRU THE UNIBUS 
MOV #061040, R2 *THE EXPECTED PHYSICAL ADDRESS IS 061040 
CMP “R2 [SEE IF THE MAP'S FETCH WAS CORREC 
BEQ 168 *BRANCH IF FETCHED DATA MATCHES A SORESS 
* 


+ THE RELOCATION HERE USES A 3 4 00057776 AND AN 
“OFFSET OF OF 01042 TO PRODUCE AN ADDRESS OF 00061040 


16$: MOV #17$,$LPERR ;SET LOOP ON ERROR POINTER TO 17% 
CLR @LREGU ‘CLEAR UPPER BITS OF MAPPING REG 
MOV #057776. ,aLREGL SLOAD LOWER BITS OF MAPPING REG 
MOV LOWEST, @#KIPAR6 =LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
o MOV #141043 °RO RO [SELECT PAR6, OFFSET IS 01042 
MOV (RO) ,R1 :READ LOCATION 061040 THRU THE UNIBUS 
MOV #061040,R2 [THE EXPECTED PHYSICAL ADDRESS IS 061040 
CMP R1,R2 “SEE IF THE MAP’S FETCH WAS CORRECT 
BEQ 18$ ‘BRANCH IF FETCHED DATA MATCHES ADDRESS 


EMT+ 26 


‘*THE RELOCATION HERE USES A BASE OF 00041042 AND AN 
S*OFFSET OF 17776 TG PRODUCE AN ADDRESS OF 00061040 


188: MOV yf lc SET LOOP ON ERROR POINTER TO 19% 


CLR “CLEAR UPPER BITS OF MAPPING REG 

MOV oOe 1042, @LREGL LOAD LOWER BITS OF MAPPING REG 

MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
is MoV tia RO “SELECT PAR6, OFFSET IS 17776 

MOV :READ LOCATION 061040 THRU THE UNIBU 

MOV #061660, R2 [THE EXPECTED PHYSICAL ADDRESS IS 663040 


CMP [SEE IF THE MAP'S FETCH WAS CORR 


ECT 
BEO Boe “BRANCH IF FETCHED DATA MATCHES ADDRES 


on 
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124 RELOCATION TEST USING LOWEST USABLE MAPPING REG SEQ 0066 
ab 015034 104026 EMT+ 26 
1698 “THE RELOCATION HERE uses A BASE OF 00057776 AND AN 
1699 :*OFFSET OF 00002 TO PRODUCE AN ADDRESS OF 00060000 
1701 015036 012767 015070 164042 308: MoV #218, SLPERR :SET LOOP ON ERROR POINTER TO 218 
015044 005077 164200 CLR REGU [CLEAR UPPER BITS OF MAPPING REG 
015050 012777 057776 164170 MOV #057776, ,aLREGL ‘LOAD LOWER BITS OF MAPPING REG 
015056 016737 164160 172354 MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
015064 012700 140002 MOV #140003 "RO RO. TSELECT PAR6, OFFSET IS 00002 
915070 000240 21$: NOP 
015072 011001 MOV (RO) ,R1 ;READ LOCATION 060000 THRU THE UNIBUS 
015074 012702 060000 MOV #060000, R2 ‘THE EXPECTED PHYSICAL ADDRESS rts 060000 
015100 020102 CMP R1_R [SEE IF THE MAP’S FETCH WAS CORRECT 
015102 001401 BEQ BOE “BRANCH IF FETCHED DATA MATCHES ADDRESS 
015106 104026 EMT+ 26 
fa 015106 012767 014216 163772 228: MOV #100$,$LPERR :SET LOOP POINTER TO START OF TEST 
17 
aye TORO PEPRRRSBRSBSASAASLASSZASLERSESESSE SESE REE RR RRA RARER RRR RRR RRR RRA SSS SS 


T*TEST 25 TEST CARRY PROP OF MAP'S RELOC ADDER 


EVERY ADDRESS OF THE FORM XXXxX0000 IS GENERATED HERE STARTING 
WITH 00030000 UP TO 17000000. THAT IS, THE FIRST OF wo is ek 
WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 
WORKING PROPERLY . 


Be Se Be Be Be Be Be 
@e oeeen es: 


MARR RREARASRALALLSSLELE SEERA RR RR RRR RELA RAR RRR RRR RAR RRA RARE RASS R SS SD 


015114 18125: 

015114 000004 SCOPE 

015116 012767 015450 164176 MOV #TST26,NXTTST 5 pet STARTING ADDRESS OF NEXT TEST 

ESCAPE ON PARITY ERRORS 

015124 012767 000012 164054 MOV wig. $TIMES DO 12 ITERATIONS 
1714 000040 NE XMEM=B 1 T 
1715 ; THE CPU ERROR REGISTER 
1716 015132 012767 177777 000126 20$: MOV #-1 ,4$ ; INITIALIZE FLAG AS NEGATIVE ONE 
1717 015140 005077 164104 CLR @LREGU :CLEAR UPPER 6 BITS OF MAP REG 
1718 015144 012777 020000 164074 MOV #20000, @LREGL + LOAD 4K BASE INTO MAP REGISTER 
1719 015152 012701 100100 MOV #100100,R1 LOAD BITS TO SELECT PAR 4, OFFSET 100 
1720 015156 012700 150000 MOV #150000,RO LOAD BITS TO SELECT PAR 6, OFFSET 2k 
1721 015162 012767 000277 155160 MOV #277 ,KIPARS START WITH PHYSICAL 6K 
1722 015170 016767 164046 155156 MOV LOWEST.KIPAR6 LOAD PAR 6 WITH MAP REG'S ADDR 
1723 915176 012767 015236 163702 MOV #10$,$LPERR :SET LOOP ON ERROR POINTER TO 108 
1724 015204 012767 000020 164054 3$: MOV #20, CPUEXP EXPECTING A UNIBUS TIME OUT DURING TEST 
1725 015212 005067 164052 CLR PCPUER CLEAR TIME OUT FLAG 
1726 015216 016710 164102 MOV DATA, (RO) ; THIS LOAD WILL TIME OUT WHEN YOU 
1727 SHAVE REACHED THE TOP OF MEMORY 
1728 :1T SELECTS PAR 6 + WILL PUT ADDR 
1729 engl ee ON THE UNIBUS. 
1730 i THE X S WILL seLECT. THE LOWEST USEABLE 
1731 ING REGISTER. THE DEFAULT CASE IS 
1732 010000, SELECTING MAPPING REGISTER 0. 
1733 015222 005767 164042 TST PCPUER SEE IF THERE WAS MAIN MEMORY 
1734 015226 001016 BNE 1$ BRANCH IF NO MAIN MEMORY FROM UNIBUS 
1735 015230 012767 000040 164030 MOV NE XMEM , CPUE XP :POSSIBLE CACHE NON-EXISTANT MEMORY 
1736 015236 011103 10$: MOV (R1) ,R3 READ TEST LOCATION VIA FASTBUS 
1737 015240 022767 000040 164022 CMP #NEXMEM,PCPUER WAS THIS CACHE NON-EXISTANT MEMORY 
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163712 
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-SBTTL 


Be Be Be Be Be Be He Be Se te 
ene epempeneeenee 
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OF MAP*S RELOC ADDER 


SEQ 0067 

BE 2$ :BRANCH IF NON-EXSITANT MEMORY 
MOV (RO) ,R2 :READ TEST LOCATION VIA UNIBUS MAP 
CMP R2,R3 S COMPARE TEST DATA R2=MAP DATA 

[R3=FASTBUS DATA 
BEQ $ “BRANCH IF IT WAS THE SAME 
EMT+ oe? , 
BR 2$ ;BRANCH TO UPDATE ROUTINE 
INC (PC)+ ‘INCREMENT ONE TIME ENTRANCE FLAG 
.WORD = [USE NEGATIVE ONE FOR FLA 
BNE 2$ : (CH IF YOU'VE BEEN HERE BEFORE 
MOV KIPARG,RSIZE | :SAVE UPPER LIMIT OF MEMORY 
ADD #100,DATA ‘CHANGE PATTERN FOR NEXT LOAD 
ADD #100. KIPARG TADD 2K TO PAR 
ADD #10000, @LREGL :ADD 2k TO MAP REGISTER 
BNE 3$ ;BRANCH IF te REGISTER NOT ZERO 
INC @LREGU D ONE TO UPPER 6 BITS OF MAP REG 
CMP #73, aLREGU ‘Ore IF 10 128k BLOCK HAS BEEN PASSED 
BHIS 3$ ‘BRANCH IF NOT PAST IT 
INC DATA “CHANGE DATA PATTERN FOR NEXT PASS 
BIC #177700,DATA CLEAR UPPER 10 BITS OF DATA PATTERN 
BIS #300,DATA “START WITH 3XX IN DATA PATTERN 
MOV #20$.$LPERR ‘SET LOOP POINTER TO START OF TEST 
CLR CPUE XP ‘NO CPU TRAPS EXPECTED FOR AWHILE 


ARR RRR RSSARARRRRR ARERR RSR SAR RE SSR RRR RAR RARRRR RRR RRR RARER SSDS ESD: 


THE FOLLOWING TESTS ARE RUN THROUGH THE UNIBUS MAP 


LAR RE RRRSRSRSRSSRR RRR RRR ERR ESSERE RRR RR RR RRR RRA RRR RRR RRR RRS RRS ED 


SCOPE LOOP ON PREVIOUS TEST 
TBITR RESTORE T-BIT IF IT WAS ON 


THIS CODE SETS UP THE TWO MAP REGISTERS ABOVE THE LOWEST 
USEABLE ONE TO POINT TO PHYSICAL MEMORY FROM 0 - 8K. IN THE 
DEFAULT CASE, IN MANUFACTURING AND IF THERE IS NO UNIBUS MEMORY, 
THIS WILL BE MAP REGISTERS 1 AND 2. MAP REGISTER 1 WILL POINT 
TO PHYSICAL 4K - 8K SO ‘‘ACT-11'' WILL WORK PROPERLY ~ A... 
REGISTER 2 WILL POINT TO PHYSICAL 0 - 4K. THIS MEAN 
Ogee nae GET 170400 SO IT PUTS ADDRESSES 340000 10 "05 57776 

E UNIBUS AND KIPAR1 SHOULD GET 170200 SO IT PUTS ADDRESSES 
020000 TO 037776 ON THE UNIBUS. 


MOV LREGU,R1 :PUT POINTER TO LOWEST MAP REG IN R1 

CLR 4(R1) “CLEAR UPPER 6 BITS OF (LOWEST + 1) 

CLR 10(R1) ‘CLEAR UPPER 6 BITS OF (LOWEST + 2) 

MOV #20000, 2(R1) ;LOAD LOWER 16 BITS OF (LOWEST + 1) 
:SO THAT IT POINTS TO 4k - 8K 

CLR 6(R1) “CLEAR LOWER 16 BITS OF (LOWEST + 2) 

MOV LOWEST R1 [PREPARE TO LOAD PARI 

ADD #200,R “POINTER TO (LOWEST + 1) 

MOV R1 eines [LOAD PAR1 TO POINT TO LOWEST + 1 

ADD #200,R1 “ADJUST R1 FOR KIPARO 





CKKUAAO 11/464 UBI MAP MACRO M1111) 20=SEP=79 11:20 PAGE 59-6 


See Reeeeee eee eeeekeeeeveakeaeeaeetneeeeereneeeneeenenaenenananen SEQ 0068 
1%? 015444 010167 154670 MOV R1,KIPARO ;LOAD PARO TO POINT TO (LOWEST + 2) 
1797 
1809 JAMA OA AOR ARAAAAAEREARAARAAEARAEERAERARERAARAAARRARARRAARAARRARAAE 
:eTEST 26 MAIN MEM, T.0. THRU MAP, CODE RUN OVER U.B. 
te THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 
se TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
:* a MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
te THIS TEST IS _— RUN WITH ALL MEMORY REFERENCES GOING THRU 
:* THE UNIBUS MAP 
(2, - EER RRAR ERT eae a RRS eR aa 
015450 TST26: 
015450 012767 015506 163426 MOV #20$,$LPADR ;SET LOOP ON TEST POINTER TO 20$ 
015456 012767 015506 163422 MOV #20$,$LPERR ;SET LOOP ON ERROR POINTER TO 20$ 
015464 012767 000026 163406 MOV #26,$TSTNM ;SETUP TEST NUMBER AND CLR ~— FLAG 
015472 016777 163402 163452 MOV $STSTNM,aDISPLAY [DISPLAY TEST NUMBER FOR ALL TO SEE 
7810 015500 012767 015602 163614 MV #TST27,NXTTST ;SET UP ESCAPE VECTOR IN CASE "OF PARITY ERRORS 
1811 045506 012767 000020 163552 20$: MOV #20, CPUEXP sEXPECTING CPU TIMEOUT IN THIS TEST 
1812 015514 016767 163522 154626 MOV LOWEST ,.KIPAR4 ;LOAD PAR 4 WITH LOWEST USABLE MAP REG 
1813 015522 012777 000074 163520 MOV #74 ,aLREGU ;LOAD UPPER 6 BITS OF LOWEST MAP REG 
1814 015530 012777 O00000 163510 MOV #000000, aLREGL ;LOAD LOWER 16 BITS OF LOWEST MAP REG 
1815 015536 012767 015544 163342 MOV #1$,$LPERR ;SET LOOP ON ERROR POINTER TO 1$ 
1816 015544 005067 163520 i$: CLR ER ;CPU ERROR REG LOCATION 
1817 015550 000240 NOP 
1818 015552 013703 100000 MOV a#100000,R3 ;TRY TO READ THRU PAGE 4 
1819 : THIS REFERENCE WILL GO OUT ON THE 
1820 UNIBUS 70 SELECT THE LOWEST rare 
1821 “MAP REGISTER (DEFAULT MAP REG. 
1822 ‘PHYSICAL ADDRESS 17700000 IS THEN 
1823 GENERATED, WHICH SHOULD TIME OUT SINCE 
1824 ;1T IS THE FIRST NON-EXISTANT LOCATION. 
1825 015556 022767 000020 163504 CMP #20,PCPUER ; THE UNIBUS SHOULD HAVE TIMED OUT 
1826 015564 001401 BEQ 10$ ;BRANCH IF UNIBUS TIMED OUT 
1827 015566 104030 EMT+ 30 
1828 015570 012767 015506 163310 108: MOV ate f alii ;SET LOOP POINTER TO START OF TEST 
3 015576 5067 163464 CLR CPUE ‘NO CPU TRAPS EXPECTED IN NEXT TEST 
1851 
1845 J FERRARA AEE KERARERRARARERRERERAE RARER ARERARARARRRERARAR EERE 
Z*TEST 27 RELOCATION TEST USING LOWEST USABLE MAPPING REG 
te ae ig TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 
;* MAP A.L.U.. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 
3” IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 
3* THIS TEST WILL USE THE LOWEST USEABLE MAP REGISTER 
;* IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 
;* THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
te THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THRU 
i* THE UNIBUS MAP. 
bp R OAR R AER RR RRR HERR R RRR EERE EERE EERO ERE R HERR ERE EERE EEE 
015602 TST2?7: 
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3 STARTING ADDRESS OF NEXT TEST 
ESCAPE ON PARITY ERRORS 

OMAKE SURE THAT ADDRESS 060000 

CONTAINS ITS OWN ADDRESS AS DATA 


t*THE RELOCATION HERE USES A BASE OF 00060000 AND AN 
00060000 


SCOPE 
MOV #TST30,NXTTST 
MOV #060000, a#060000° 
SeOFFSET OF 00000 
100$: Mov “18. SLPERR 
CL 
ov «#060000, @LREGL 
MOV LOWE ST, ak [PAR6 
MOV #140000,RO 
1$: NOP 
MOV (RO),R1 
MOV #060000 ,.R2 
CMP 1,R2 
BEQ 2 
EMT+ 31 


TO PRODUCE AN ADDRESS OF 


;SET LOOP ON ERROR POINTER TO 1$ 
[CLEAR UPPER BITS OF MAPPING REG 
[LOAD LOWER BITS OF MAPPING REG 
;LOAD PAR6 WITH ADDR OF LOWEST MAP REG 


[SELECT PAR6, OFFSET IS 


;READ LOCATION 060000 THRU THE UNIBUS 
THE EXPECTED PHYSICAL ADDRESS IS 060000 
;SEE IF THE MAP*S FETCH WAS CORRECT 
;BRANCH IF FETCHED DATA MATCHES ADDRESS 


Se THE RELOCATION HERE USES A BASE OF 00052524 AND AN 


;*OFFSET OF 05252 TO PRODUCE 


d$: 


ig a 


7050524, @LREGL 
LOWEST , @#K IPAR6 
#145252,R0 


(RO),R1 
#057776,R2 
Ri. »R2 


4 
31 


AN ADDRESS OF 00057776 


SET LOOP ON ERROR POINTER TO 3$ 
; CLEAR UPPER BITS OF MAPPING REG 
[LOAD LOWER BITS OF MAPPING REG 
;LOAD PAR6 WITH ADDR OF LOWEST MAP REG 


TSELECT PAR6, OFFSET IS 05252 


READ LOCATION 057776 THRU THE UNIBUS 

; THE EXPECTED PHYSICAL ADDRESS IS 057776 
;SEE IF THE MAP'S FETCK WAS CORRECT 
;BRANCH IF FETCHED DATA MATCHES ADDRESS 


S*THE RELOCATION HERE USES A BASE OF 00045252 AND_AN 
;*OFFSET OF 12524 TO PRODUCE AN ADDRESS OF 00057776 


i$: 


5$: 


#58, SLPERR 
eas 552, @LREGL 
LOWEST, a#k IP 
#152524,RO 
(RO) .R1 
#057776,R2 
R1,R2 

6$ 

31 


;SET LOOP ON ERROR POINTER TO 5$ 
;CLEAR UPPER BITS OF MAPPING REG 
;LOAD LOWER BITS OF MAPPING REG 

AR6 ;LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
SELECT PAR6, OFFSET IS 12524 


READ LOCATION 057776 THRU THE UNIBUS 
; THE EXPECTED PHYSICAL ADDRESS IS 057776 
[SEE IF THE MAP'S FETCH WAS CORRECT 


[BRANCH IF FETCHED DATA MATCHES ADDRESS 


« eTHE RELOCATION HERE USES A BASE OF 00050420 AND 


és: 


MOV 
CLR 
MOV 


;*OFFSET OF 10420 TO PRODUCE AN ADDRESS OF 60061040" 


#7%$,$LPERR 
al REGU 
#050420, aL REGL 








SET LOOP ON ERROR POINTER TO 7$ 
: CLEAR UPPER BITS OF MAPPING REG 
;LOAD LOWER BITS OF MAPPING REG 


SEQ 0069 








oe ee 


F 6 
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127 RELOCATION TEST USING LOWEST USABLE MAPPING REG SEQ 0070 

016030 016737 163206 172354 MOV Loe ST, @#K PARKS ;LUAD PAR6 WITH ADDR OF LOWEST MAP REG 
JieU36 Gi2700 750620 MOV 0426,R0 “SELECT PAR6, OFFSET IS 10420 
016042 000240 7$: NOP 
916064 011001 MOV 0),R1 :READ LOCATION 061040 THRU THE UNIBU 
016946 012702 0610460 MOV #061040, R2 ‘THE EXPECTED PHYSICAL ADDRESS iS 081060 
016052 020102 CMP -* pe “R2 ‘SEE IF THE MAP'S FETCH WAS CORRECT 
016054 001401 BEQ as" “BRANCH IF FETCHED DATA MATCHES ADDRESS 

hes: 016056 104031 EMT+ 31 

1869 S*THE RELOCATION HERE USES A BASE OF 00054630 AND AN 

1870 S*OFFSET OF 04210 TO PRODUCE AN ADDRESS OF 00061040 

1872 016060 012767 016112 163020 &$: MOV #98. SLPERR :SET LOOP ON ERROR POINTER TO 9% 
016066 005077 163156 CLR [CLEAR UPPER BITS OF MAPPING REG 
016072 012777 054630 163146 MOV 9054030, @LREG. :LOAD LOWER BITS OF MAPPING REG 
016100 016737 163136 172354 MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
016106 012700 144210 MOV #144210.RO TSELECT PAR6, OFFSET IS 04210 
016172 000240 9$: NOP 
016114 011001 MOV (RO) ,R1 :READ LOCATION 061040 THRU THE UNIBUS 
016116 012702 061040 MOV #061040,R2 ‘THE EXPECTED PHYSICAL ADDRESS IS 061040 
016122 020102 CMP R1,R2 ‘SEE IF THE MAP'S FETCH WAS CORRECT 
016124 001401: BEQ 10$ “BRANCH IF FETCHED DATA MATCHES ADDRESS 

os 016126 104031 EMT+ 3 

1874 S*THE RELOCATION HERE USES A BASE OF 00044210 AND AN 

1875 ;*OFFSET OF 14630 TO PRODUCE AN ADDRESS OF 00061040 

1877 016130 012767 016162 162750 10$: MOV #11$,$LPERR :SET LOOP ON ERROR POINTER TO 11$ 
016136 005077 163106 CLR a@LREGU “CLEAR UPPER BITS OF MAPPING REG 
016142 012777 044210 163076 MOV #044210,@LREGL LOAD LOWER BITS OF MAPPING REG 
016150 016737 163066 172354 MOV LOWEST. @AKIPAR6 =LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
016156 012700 154630 MOV #154630,RO [SELECT PAR6, OFFSET IS 14630 
016162 000240 11$: NOP 
016164 011001 MOV (RO) ,R1 :READ LOCATION 061060 THRU THE UNIBUS 
016166 012702 061040 MOV #061040,R2 “THE EXPECTED PHYSICAL ADDRESS IS 061040 
016172 020102 CMP R1,R2 “SEE IF THE MAP'S FETCH WAS CORRECT 
0161746 001401 BEQ 12$ “BRANCH IF FETCHED DATA MATCHES ADDRESS 

pee 016176 104031 EMT+ 31 

1879 ‘THE RELOCATION HERE USES A BASE OF 90056734 AND AN 

1850 :*OFFSET OF 02104 TO PRODUCE AN ADDRESS OF 00061040 

1882 016200 012767 016232 162700 128: MoV #138, _SLPERR :SET LOOP ON ERROR POINTER TO 138 
016206 005077 163036 CLR “CLEAR UPPER BITS OF MAPPING REG 
016212 612777 056734 163026 MOV O86 936, @LREGL :LOAD LOWER BITS OF MAPPING REG 
016220 016737 163016 172354 MOV LOWEST, @#KIPAR6 =LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
016226 012700 142104 MOV #142104,RO “SELECT PAR6, OFFSET IS 02104 
016232 000240 13$: NOP 
016234 011001 MOV (RO) .R1 :READ LOCATION 061040 THRU THE UNIBU 
016236 012702 061040 MOV #061040, R2 ‘TE EXPECTED PHYSICAL ADDRESS IS 6040 
016242 020102 CMP ‘SEE IF THE MAP'S FETCH WAS CORREC 
016244 001401 BEQ OH tas “BRANCH IF FETCHED DATA MATCHES AOORESS 

oat 016266 104031 EMT+ = 31 

1884 TeTHE RELCCATION HERE USES A BASE OF 00042104 AND 


4 4 ZeOFFSET OF 16734 TO PRODUCE AN ADDRESS OF 06061040" 
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127 RELOCATION TEST USING LOWEST USABLE MAPPING REG SEQ 0071 

1887 016250 012767 016302 162630 148: MOV #15$,$LPERR :SET LOOP ON ERROR POINTER TO 15% 
016256 005077 162766 CLR aL REGU [CLEAR UPPER BITS OF MAPPING REG 
016262 012777 042104 162756 MOV #042104, @LREGL :LOAD LOWER BITS OF MAPPING RE 
016270 016737 162746 172254 MOV LOWEST, @@KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
016276 012700 156734 MOV #156734 ,RO0 SELECT PAR6, OFFSET IS 16736 
016302 000240 15$: NOP 
016304 011001 MOV (RO) RI :READ LOCATION 061040 THRU THE UNIBUS 
016306 012702 061040 MOV #061040, R2 “THE EXPECTED PHYSICAL ADDRESS IS 061040 
016312 020102 CMP R1_R2 [SEE IF THE MAP’S FETCH WAS CORRECT 
016314 001401 BEO 16$ SRBRANCH IF FETCHED DATA MATCHES ADDRESS 

te 016316 104031 EMT+ =. 3 

1889 Se THE RELOCATION HERE USES A BASE OF 00057776 AND AN 

1890 S OFFSET OF 01042 TO PRODUCE AN ADDRESS OF 00061040 

1892 016320 012767 016352 162560 16%: MOV “178, SLPERR :SET LOOP ON ERROR POINTER TO 17% 
016326 005077 162716 CLR @LREGU SCLEAR UPPER BITS OF MAPPING REG 
016332 012777 057776 162706 MOV #057776, @LREGL :LOAD LOWER BITS OF MAPPING REG 
016360 016737 162676 172354 MOV LOWEST, @#KIPAR6 =LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
016346 012700 141042 MOV #141062,R0 SSELECT PAR6, OFFSET IS 01042 
016352 00024C 17$: NOP 
016354 011001 MOV (RO) RI :READ LOCATION 061040 THRU THE UNIBUS 
016356 012702 061040 MOV #061640,R2 = THE EXPECTED PHYSICAL ADDRESS IS 061040 
016362 020102 CMP R1.R2 “SEE IF THE MAP’S FETCH WAS CORRECT 
016364 001401 BEQ 18$ [BRANCH IF FETCHED DATA MATCHES ADDRESS 

1893 016366 104031 EMT+ 31 

1894 t*THE RELOCATION HERE USES A BASE OF 00041042 AND AN 

by a ; *OF FSET OF 17776 TO PRODUCE AN ADDRESS OF 00061040 

1897 016370 012767 016422 162510 18%: MOV #19$,$LPERR :SET LOOP ON ERROR POINTER TO 19% 
016376 005077 162646 CLR a@LREGU ‘CLEAR UPPER BITS OF MAPPING REG 
016402 012777 041042 162636 MOV #041042, @LREGL =LOAD LOWER BITS OF MAPPING REG 
016410 16737 162626 172354 MOV LOWEST, @#KIPAR6 =LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
016416 012700 157776 MOV #157776,RO [SELECT PAR6, OFFSET IS 17776 
016422 000240 19$: NOP 
016424 011001 MOV (RO) ,R1 :READ LOCATION 061040 THRU THE UNIBUS 
016426 012702 061040 MOV #061040,R2 STHE EXPECTED PHYSICAL ADDRESS IS 061040 
016432 020102 CMP R1,R2 TSEE IF THE MAP'S FETCH WAS CORRECT 
016434 001401 BEQ 20$ “BRANCH IF FETCHED DATA MATCHES ADDRESS 

cae 016436 104031 EMT+ 31 

1899 t*THE RELOCATION HERE USES A BASE OF 00057776 AND AN 

my :*OFFSET OF 00002 TO PRODUCE AN ADDRESS OF 00060000 

1902 016440 012767 016472 162440 20$: mov #218, SLPERR :SET LOOP ON ERROR POINTER 10 218 
016446 005077 162576 CLR @L REGU “CLEAR UPPER BITS OF MAPPING REG 
016452 012777 057776 162566 MOV #057776, a@LREGL =LOAD LOWER BITS OF MAPPING REG 
016460 016737 162556 172356 MOV LOWEST, @#KIPAR6 :LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
016466 012700 140002 MOV #140002,R0 [SELECT PAR6, OFFSET IS 00002 
016472 000240 21$: NOP 
016474 011001 MOV (RO) ,R1 ;READ LOCATION 960000 THRU THE UNIBUS 
016476 012702 060000 MOV #060000 .R2 ‘THE EXPECTED PHYSICAL ADDRESS IS 960000 
016502 020102 CMP R1,R2 ‘SEE IF THE MAP'S FETCH WAS CORRECT 
016504 001401 BEQ 228 “BRANCH IF FETCHED DATA MATCHES ADDRESS 


0 3 
1903 016510 012767 015620 162370 22%: MOV #100$,$LPERR SET LOOP POINTER TO START OF TEST 





i ees 
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127 


1904 
1905 
1906 
1915 
1916 


016516 
016516 
016520 
016526 
1917 016534 
1918 016542 


1955 016726 


000004 
012767 
012767 
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162576 
162452 
000126 


162440 
000040 
000040 


162426 
162420 
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RELOCATION TEST USING LOWEST USABLE MAPPING REG 


“@@@eeeeeeteeeteaeeeeeaekenheeneetateeteeeaeaeeaneaeeeetaeaanteatenene 


;eTEST 30 TEST CARRY PROP OF MAP'S RELOC ADDER 
i EVERY ADDRESS OF THE 15oRe KXXK0000 IS GENERATED HERE STARTING 
38 WITH UP TO 17000000. THAT IS THE FIRST OF EVERY 2k 
ie WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 
:* WORKING PROPERLY . 
, s penennennenencencecenecececeenecensqncececcccnsececesenecensees 
TST30: 
SCOPE 
MOV #TST31,NXTTST : SAVE STARTING ADDRESS OF NEXT TEST 
“FOR ESCAPE ON PARITY ERRORS 
MOV #12, $TIMES >:D0 12 ITERATIONS 
208: MOV #-1.4$ S]NITIALIZE FLAG AS NEGATIVE ONE 
CLR a@LREGU [CLEAR UPPER 6 BITS OF MAP REG 
MOV #20000,@LREGL :LOAD 4k BASE INTO MAP REGISTER 
MOV #100100, ‘LOAD BITS TO SELECT PAR 4, OFFSET 100 
MOV #150000,RO “LOAD BITS TO SELECT PAR 6. OFFSET 2k 
MOV #277 ,KIPARG ‘START WITH PHYSICAL 6K 
MOV LOWEST, KIPAR6  =LOAD PAR 6 WITH MAP REG'S ADDR 
MOV #10$,$LPERR :SET LOOP ON ERROR POINTER TO 10% 
z$: MOV #TIMOUT,CPUEXP :EXPECTING A UNIBUS TIME OUT DURING TEST 
CLR PCPUER [CLEAR TIME OUT FLAG 
MOV DATA, (RO) THIS LOAD WILL TIME OUT WHEN YOU 
“HAVE REACHED THE TOP OF MEMORY 
‘IT SELECTS PAR 6 WHICH WILL PUT ADDR 
; <XXX_%X1>0000 ON THE UNIBUS. 
STHE X°S WILL SELECT THE LOWEST USEABLE 
MAPPING REGISTER. THE DEFAULT CASE IS 
7010000, SELECTING MAPPING REGISTER 0. 
TST PCPUER :SEE IF THERE WAS MAIN MEMORY 
BNE 1$ (CH IF NO MAIN MEMORY FROM UNIBUS 
MOV #NEXMEM, CPUEXP =POSSIBLE CACHE NON-EXISTANT MEMORY 
10$: MOV (R1),R3 ‘READ TEST LOCATION VIA FASTBUS 
CMP #NEXMEM,PCPUER WAS THERE CACHE NON-EXISTANT MEMORY 
BEQ $ “BRANCH IF NON-EXISTANT MEMORY 
MOV (RO) .R2 :READ TEST LOCATION VIA UNIBUS MAP 
CMP R2,R S COMPARE TEST DATA R2=MAP DATA 
*R3=FASTBUS DATA 
EQ 2s ‘BRANCH IF IT WAS THE SAME 
BR :BRANCH TO UPDATE ROUTINE 
1$: INC (PC) ‘INCREMENT ONE TIME ENTRANCE FLAG 
4$: .WORD <1 SUSE NEGATIVE ONE FOR FLA 
BNE 2$ *BRANCH IF YOU'VE BEEN HERE BEF ORE 
MOV KIPARS RSIZE [SAVE UPPER LIMIT OF MEMORY 
2$: ADD #100,DATA ‘CHANGE PATTERN FOR NEXT LOAD 
ADD #100. KIPARG TADD 2K TO PAR 
ADD #10000, aLREGL :ADD 2k TO MAP REGISTER 
BNE 3$ “BRANCH IF MAP REGISTER NOT ZERO 
INC al REGU [ADD ONE TO UPPER 6 BITS OF MAP REG 


a 
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30 


1956 016732 
1957 016740 


1961 016762 
1962 016770 
1963 


1964 
1965 
1990 


016774 
016774 
016776 


1991 017004 
1992 017012 


2001 
2002 017090 
2003 


2004 017052 
2005 017060 


022777 
10332 
00 


MACRO M1111 


000073 


162356 
177700 


000300 
016534 
162272 


017324 


017020 
017020 


000200 
000100 001 
000100 


000001 
000400 
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162310 


162316 


162072 
162066 


001007 


000 


177570 


177572 
177746 


C #73, aL REGU SEE IF TOP 128% BLOCK HAS BEEN PASSED 

BHIS 3$ ;BRANCH IF NOT PAST IT 

INC DATA ; CHANGE DATA PATTERN FOR NEXT PASS 

BIC #177700, ,DATA ;CLEAR UPPER_10 BITS OF DATA PATTERN 

BIS #300, DATA START WITH 3Xx IN DATA PATTERN 

MOV #208, $. PERR SET LOOP POINTER TO START OF TEST 
19$: CiR CPUE XP ;NO CPU TRAPS EXPECTED IN NEXT TEST 


PURPA REE HRERRERERARREREEREEERERERER EEE RRRER HERE HERR E EEE REE 

*TEST 31 VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 

. THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM 4ARDWARE 

e SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 
* OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
;* THEN BIT O08 OF SSWREG IS SET TO 1 THRU APT SCRIPTING. 


. THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE 
* TO THE UBI MODULE WHICH INDICATES TO THE UB] THAT A CACHE INTERRUPT 
e 1S BEING CALLED FOR(CACHE PE INTR L). 


THIS TEST ASSUMES THAT ALL MODULES EXCEPT THE UBI MODULE ARE KNOWN 
: GOOD MODULES. 


;a THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
i* HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 

se VERIFY TESTING OF THE UBI MODULE. 

s¢ TEST DESCRIPTION: 

;* VERIFY INTERRUPT LOGIC BY ASSURING THAT A TRAP OCCURS TO LOCATION 
i” 114 WHEN A LOCATION PREVIOUSLY WRITTEN 

;@ WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 

; CONDITIONS: ores 


5 CRATER AAEAAREARRERARAHEARAAAAARARARARAAAARAAAAARARAARRAAAAAAEHAE 


1$131: 
SCOPE 
MOV #TST32,NXTTST 


MOV #20$,$LPADR 
MOV #20$,$LPERR 


SAVE STARTING ADDRESS OF NEXT TEST 
FOR ESCAPE ON PARITY ERRORS 
; SETUP LOOP ON TEST POINTER 
; SETUP LOOP ON ERROR POINTER 


20$: 
BI11B #200, $SENVM 71S APT SIZING? 
BEQ 12% ‘NO; TRY HARDWARE SWITCH REGISTER 
BIT #100, $SWREG VES APT 1S SIZING; DOES APT SAY TO DO 
‘TH 
BEQ 10$ NO; SKIP TEST 
BR 1$ ;YES,DO TEST 
12$: Bl #100,a4177570 :DOES_ HARDWARE SWITCH REGISTER SAY TU 
BEC 10$ NO, SKIP TEST 
1$: BIC #1,a4177572 ; TURN OFF RELOCATION 
BIS #400,04177746 sFLUSH CACHE TO INVALIDATE Acc 


CACHE LC 


SEQ 0073 


CATIONS 








CKKUAAO 11/64 UBI MAP = MACRO M1117 20=SEP=79 11:20 PAGE 60 


731 VERIFY TRAP DUE TO CACHE PARITY INTERRUPT SEQ 0074 
2007 017066 032737 010000 177746 BIT #10000,a4177746 sWAIT TILL DONE 
2008 017074 601374 BNE .-6 
2009 917076 013702 000000 MOV af0,R2 ;SAVE ADDR. 0 CONTENTS 
2010 017102 005037 000000 CLR aw "O'S TO MAIN MEMORY LOCATION 0. 
2011 017106 013700 000114 MOV 04114,R0 ;SAVE VECTORS 
sors 017112 013701 000116 MOV @4116,R1 
2013 017116 012737 017232 000114 MOV #4$,404114 ;SETUP FOR CACHE TRAP 
Oi 017124 012737 000340 000116 MOV #340,a4116 
2016 017132 112737 Q00002 177750 MOVB #2,84177750 sHODC ALLOWS CACHE UPDATES 
2017 ZAND CLOCKING OF PARITY INFO TO INTERRUPT LCGIC 
2018 ; ONLY DURING THE DESTINATION ACCESS OF 
2019 + AN ep ey np 
2020 017140 005003 CLR R3 ; CLEAR ERROR FLAG 
2021 017142 012737 Q00015 177746 MOV 415,a4177746 *NO UCB SO AS to WRITE CACHE STORES 
2022 017150 005737 000000 TST a0 3 
2023 017154 005737 040000 TST @#40000 _ ;UPDATE CACHE LOCATION OOOC WITH CORRECT PARITY STOR 
2024 017160 052737 000100 177746 BIS #100,a4177746 ZALLOW WRITE WRONG PARITY DATA TO LO 
2025 3® HI BYTF PARITY STORE. 
2026 017166 005737 000000 TST a0 ;READ UPDATE TO CACHE LOCATION 0000; 
2027 ;WRITE ge? PARITY TO HI/LO BYTE PARITY STORES 
2028 017172 042737 000100 177746 BIC #100,a4177746 ;DISABLE 
2029 017200 005037 177744 CLR arl77744 ; CLEAR ome AN AND PARITY DETECT LOGIC 
2030 0172046 042737 000005 177746 BIC #5,a4177746 > ALLOW FOR INTERRUPT TO OCCUR 
2031 ; AND ENABLE LOW CACHE 
2032 017212 905737 000000 TST a0 ;READ HIT 
2033 ;LO & HI BYTE PARITY CHECK rey WILL 
2034 ; DETECT WRONG PARITY AND THE PARIT 
2035 ;ERROR WILL BE CLOCKED TO INTERRUPT 
2036 *LOGIC 
2037 017216 000240 NOP 
2038 077220 005203 INC R3 zs INDICATE THAT TRAP DID NOT OCCUR 
2039 017222 012737 001015 177746 MOV #1015,084177746 ;DISABLE CACHE 
2040 017230 000404 BR 25$ 
2041 017232 012737 001015 177746 4$: MOV #1015,a4177746 ;DISABLE CACHE 
2042 017240 022626 CMP (R6)+,(R6)+ sREADJUST STACK DUE TO INTERRUPT 
2043 017242 000240 25$: NOP 
2044 017244 000240 NOP 
2045 017246 105037 177750 CLRB a4177750 ;DISABLE MAINT. MODE 
2046 017252 010237 000000 MOV R2,a40 SRESTORE LOCATION 0 
2047 017256 010037 000114 MOV Hh Abe sRESTORE CACHE INTERRUPT VECTORS 
2048 017262 010137 000116 MOV R1 
2049 017266 052737 000400 177746 BIS ROe awt77766 ;BEFORE LEAVING TEST FLUSH CACHE TO 
2050 sELIMINATE ANY EFFECTS OF wWwWPD 
2051 017274 032737 010000 177746 BIT #10000,a4177746 ‘WAIT TILL DONE 
2052 017302 001374 BNE .-6 
2053 017304 012737 000000 177746 MOV #0,84177746 ; TURN CACHE ON 
2054 017312 005702 TST R35 :DID TRAP OCCUR? 
2055 017314 001401 BEQ 10$ YES 
2056 017316 000000 HALT : INTERRUPT/ABORT LOGIC TESTS 
2057 : TRAP TO LOCATION 114 DID NOT OCCUR 
2058 017320 000240 10$: NOP ZEND OF TEST 
2059 017322 000240 NOP 
2060 
2061 


2062 
2096 


FS etteeaeaarereagkaeneanasagaganagenKganaeaaaKeneeeaneansenanaganees 


wn 
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017324 

2097 017326 
2098 017334 
7342 


2101 017350 
2102 017356 
2103 017360 
2104 

2105 017366 
2106 017370 
2107 017372 
2108 

2109 017400 
2110 

2111 017402 
2112 017410 
2113 017416 
2114 017424 
2115 017426 
2116 017432 
2117 017436 
2118 017440 
2119 017444 


012767 
132767 
001405 
032767 
001534 


000404 
032737 


013701 


MACRO M1311 


161766 
017350 
000200 
000100 


000100 177570 


177572 
000400 177746 
177746 
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132 VERIFY TRAP DUE TO CACHE PARITY ABORT 


2 sTEST 32 


.. 
se ee 


Be Be Be . 
sew mpepepaeneneee 


—qte Bee . 
Ws #2 


TST32: 


208: 


12$: 


VERIFY TRAP DUE TO CACHE PARITY ABORT 

THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 
SWITCH REGISTER BIT 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 
OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
THEN BIT 08 OF SSWREG IS SET TO 1 THRU APT SCRIPTING. 


THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE (BUS PBL) 
TO THE UBI MODULE WHICH INDICATES TO THE UBI THAT A CACHE ABORT 
1S BEING CALLED FOR. 


THIS TEST ASSUMES THAT ALL MODULES EXCEPT UBI ARE KNOWN GOOD MODULES 


THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
VERIFY TESTING OF THE UBI MODULE. 


TEST DESCRIPTION: 


VERIFY ABORT LOGIC BY THE FOLLOWING RESULTS WHEN A LOCATION 
PREVIOUSLY WRITTEN WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 

1. INSTRUCTION CYCLE WILL BE ABORTED 

2. THE ABORT CAUSES TRAP TO 114 

PROCEDURE : INHIBIT CLOCKING OF PARITY ERROR SIGNAL TO 
INTERRUPT LOGIC. ALLOW CME<15> TO BE SET 
BY ABORT SIGNAL WHICH IS ASSERTED BY PARITY 
ERROR SIGNAL TO ABORT LOGIC. 


CONDITIONS: PEA=1 


DCPI=1 


RRR AREER AEAREARERAAEAARAAARKEREARKE REHEARSE 


MOV SEOP .NXTTST 
MOV #20$,$LPADR 
MOV #20$,$LPERR 


:POINT TO ESCAPE VECTOR 
;SETUP LOOP ON TEST VECTOR 
; SETUP LOOP ON ERROR VECTOR 


BITB  #200,$ENVM 1S apt SIZING? 
BEQ 12$ =NO; TRY HARDWARE SWITCH REGISTER 
BIT #100, $SWREG YES APT 1S SIZING:DOES APT SAY TO DO 
BEQ 10$ NO; “SKIP TEST 
BR 1$ YES,DO TEST 
BIT #100,a#177570 :DOES HARDWARE SWITCH REGISTER SAY TO 
BEQ 10$ “NO, SKIP TEST 
1$: BIC #1,a#177572 : TURN OFF RELOCATION 
BIS ty a#177746 SFLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS 
BIT #1 #10060, atl77746 ‘WAIT TILL DONE 
MOV 590, R2 :SAVE ADDRESS © CONTENTS 


CLR aad SALL_ O'S TO LOCATION 0 
CLR R3 sADDRESS 0 TO R3 

MOV a4114,R0 SAVE VECTORS 

MOV a4116,R1 


=n 
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132 VERIFY TRAP DUE TO CACHE PARITY ABORT SEQ 0076 
2120 017450 012737 017570 000114 MOV #6$,aa714 :SETUP FOR TRAP 
ele} 017456 012737 000340 000116 MOV #340,aa116 
2123 017464 112737 000002 177750 MOVB #2,a4177750 zHODO ALLOWS CACHE UPDATES 
2124 [AND CLOCKING OF PARITY INFO TO INTERRUPT LOGIC 
2125 > ONLY DURING THE DESTINATION ACCESS OF 
2126 ‘AN INSTRUCTION. 
2127 017472 005005 CLR RS > CLEAR ERROR FLAG 
2128 0174674 012704 177777 MOV #=1,R4 sALL 1°S TOR 
2129 017500 012737 000015 177746 MOV #15,a8177746 ;NO UCB SO AS TO WRITE CACHE STORES 
2130 017506 005713 TST (R3) 
2131 017510 005737 040000 TST a#40000 “ UPDATE CACHE LOCATION 0000 WITH CORRECT PARITY STOR 
2132 017514 052737 000100 177746 BIS #100,a#177746 TALLOW WRITE WRONG PARITY DATA TO LO 
2133 '®@ HI BYTE PARITY STORE. 
2134 017522 005713 TST (R3) ‘READ UPDATE TO CACHE LOCATION 0000 
2135 WRITE WRONG PARITY TO HI/LO BYTE PARITY STORES 
2136 017524 042737 000100 177746 BIC #100 977746 [DISABLE wwPD 
2137 017532 005037 177744 CLR @#177744 :CLEAR CME AND PARITY DETECT LOGIC 
2138 017536 042737 000004 177746 BIC #4,a177746 ENABLE LOW CACHE 
2139 017544 052737 000200 177746 BIS #200,a#177746 ALLOW FOR ABORT 
2140 017552 011304 MOV (R3).R4 “READ HIT; 
214, LO ¢ Hl by TE PARITY CHECK GENERATORS WILL 
2142 > DETECT WRONG PARIT 
2143 SUsING H0D0 AND SOURCE MODE FOR READING 
2144 LOCATION 0 WILL INHIBIT PARITY ERROR 
2145 >FROM BEING CLOCKED TO INTERRUPT LOGIC 
2146 SHOWEVER, THE PARITY ERROR SIGNAL 
2147 ‘WILL CAUSE THE ABORT SIGNAL TO BE 
2148 TASSERTED. THE ABORT SIGNAL WILL BE 
2149 “CAUSE CME<15> TO BE SET. 
2150 :THIS INSTRUCTION SHOULD BE ABORTED 
2151 017554 000240 NOP 
2152 017556 005205 INC RS : INDICATE NO TRAP OCCURED 
2153 017560 012737 001015 177746 MOV #1015,a4177746 “DISABLE CACHE 
2154 017566 000404 BR 5$ 
2155 017570 012737 001015 177746 4$: MOV #1015,a4177746 :DISABLE CACHE 
3196 017576 022626 CMP (R6)+. (R6)+ sREADJUST STACK 
2158 017600 000240 S$: NOP 
2159 017602 000240 
2160 017604 105037 177750 CURB av177750 :DISABLE MAINT. MODE 
2161 017610 010237 000000 MOV R2,a40 SRESTORE VECTORS 
2162 017614 010037 000114 MOV RO, anit 
2163 017620 010137 000116 MOV R 16 
2164 017624 052737 000400 177746 BIS B00 an77746 :BEFORE LEAVING TEST FLUSH CACHE TO 
2165 SELIMINATE ANY EFFECTS OF WWPD 
2166 017632 032737 010000 177746 BIT #10000,a4177746 :WAIT TILL DONE 
2167 017640 001374 BNE .- 
2168 017642 022704 177777 gs: CMP #-1,R4 :WAS INSTRUCTION ABORTED LEAVING RG INTACT? 
2169 017646 001401 BEQ 9$ YES 
2170 017650 000000 HALT : INTERRUPT /ABORT TESTS 
2171 *R4 WAS OVERWRITTEN WITH DATA INDICATING 
2172 *THAT INSTRUCTION WAS NOT ABORTED 
2173 017652 005705 9$: TST RS “DID TRAP OCCUR 
2174 017654 001401 BEQ 10$ YES: PASS 
2175 017656 000000 HALT * INTERRUPT/ABORT TESTS 


2176 ° [TRAP DID NOT OCCUR DUE TO ABORT 


mn 


C 
T 


es 


ronmononanonnony 
a ee ee er ee eer ar 


RAVZS 3a 
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VERIFY TRAP DUE TO CACHE PARITY ABORT 


7 017660 000240 
017662 000240 


N 


10$: NOP 
NOP 


END OF TEST 


SEQ 0077 
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132 VERIFY TRAP DUE TO CACHE PARITY ABORT Sea 0078 
2186 017664 000167 001362 JMP $EOP . 
2188 
2189 920000 .=20000 
2190 
219) 


ms 
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APT PARAMETER BLOCK 


2194 


2195 


000024 
000044 


000000 


Cu 


20-SEP-79 11:20 PAGE 62 


SEQ 0079 

.SBTTL APT PARAMETER BLOCK 
ff TRARAARARAARAARARAARAAARARERARAARAAARAAARAHARARAARRARAADAARERERAES 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
J FURR AAAAARAAAAERARARAAAERAAARERAARAAERARARERRAREERAREHERARAAAAHERER 

. $X=, 3;SAVE CURRENT LOCATION 

224 43 > fl POWER FAIL TO POINT TO START OF PROGRAM 

200 77FOR APT START UP 

.=44 :zPOINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ;;POINT TO APT HEADER BLOCK 

-=.$X  ;;RESET LOCATION COUNTER 
FF ARARAARAAERARRRAERRAERARRARARARRAERRARARARRRARRRARRARARRARRARRAEARED 
“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 
$SAPTHD: 
$HIBTS: .WORD 0 :TWO HIGH BITS OF 18 BIT MAILBOX oem 
SMBADR: .WORD SMAIL : ADDRESS OF APT MAILBOX (BITS 0-15 
STSTM: .WORD 5 ;RUN TIM OF LONGEST TEST 
SPASTM: .WORD 10 ; ;RUN TIME IN SECS. OF 1ST PASS ON 71 UNIT (QUICK VERIFY) 
SUNITM: .WORD 0 sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


. WORD SETEND-SMAIL/2 33LENGTH MAILBOX-E TABLE (WORDS) 
.SBTTL APT MAILBOX-E TABLE 


$MAIL: ::APT MAILBOX 
SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL FATAL ERROR NUMBER 


SUNIT: .WORD AUNIT 2170 UNIT NUMBER 


SENVM: [BYTE AENVM  ::ENVIRONMENT MODE BITS 
SSWREG: .WORD ASWREG ;:APT SWITCH REGISTER 
$USWR: WORD AUSWR  ::USER SWITCHES 


: 33C E,OP 
“ed BITS ie TYPE 


zs 11/04=01,11/05=02,11/20=03, 11/40=04,11/45=05 
te 11/70=06.PDQ=07 ,0=10 ; 
ie BIT 10=REAL TIME CLOCK 

:* BIT 9=FLOATING POINT PROCESSOR 

if BIT 8=MEMORY MANAG 

$MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 

$MTYP1: [BYTE AMTYP1 ::MEM. TYPE.BLKA1 

ie MEM. TYPE BYTE =~ (HIGH BYTE) 

:* 900 NSEC CORE=001 

:* 300 NSEC BIPOLAR=002 


* 500 
$MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA& 
Td MEM.LAST ADDR. =3 white THIS WORD AND LOW OF ‘‘TYPE’' ABOVE 
SMAMS2: .RYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
$MTYP2: .BYTE AMTYP2 ::MEM. TYPE ,BLKA2 
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2196 


020140 


020140 
020140 


020144 


020164 
020170 


Se 


161154 
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$DDWI4: | 
$DDwW15: . 


SETEND: 


ADDW14 
ADDW15 


3 =MEM.LAST “eet BLK&2 
sw te 
7 MEM. TYPE ,BLK& 
> MEM.LAST ADDRESS ,BLK&3 
: sHIGH + ay tf Lee -S.BYTE 


:MEM, LAST “ADDRESS ,BLKA4 
 PINTERRUPT VECTORA1 ,BUS PRIORI TY#1 
ZEINTERRUPT VECTOR#2BUS PRIOR 
aeice we OF EQUIPMENT UNDER TEST 


; HIGH 


-S.BYTE 


ORITY#2 


; CONTROLLER DESCRIPTION WORD#1 
3; CONTROLLER DESCRIPTION WORD#2 
DESCRIPTOR WORDAO 


7 DEVICE 


+ = DEVICE 


DESCRIPTOR WORDA1 
DESCRIPTOR WORDA2 
DESCRIPTOR WORD#3 
DESCRIPTOR WORDA4 
DESCRIPTOR WORDA#S 
DESCRIPTOR WORD#6 
DESCRIPTOR WORDA7 
DESCRIPTOR WORDA8 
DESCRIPTOR WORDA9 
DESCRIPTOR WORD#10 
DESCRIPTOR WORD#11 
DESCRIPTOR WORD#12 
DESCRIPTOR WORD#13 
DESCRIPTOR WORDA14 
DESCRIPTOR WORDA15 


FFARR RERAAAARRARRRARERAKERARKERARR ED THEKKERAHRARRERERE ERED 


. SBTTL 


;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


SCOPE HANDLER ROUTINE 


IT WILL INCREMENT 


7 *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<?7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

= LOOP ON TEST 

INHIBIT ITERATIONS 

LOOP ON ERROR 

LOOP ON TEST IN SWR<5:0> 


RETRY 
ERRCNT 


0 
RO, DATAND 


3; SCOPE=10T 


ekeu tT “ses FLAG AN THE START OF 
H 
;CLEAR THE MULTIPLE ERROR COUNTER 


[LOCATION FOR LOGICAL OR OF BAD DATA 
;LOCATION FOR LOGICAL OR OF ADDRESS 


LOCATION FOR LOGICAL OR OF PATTERN LOADED 
LOAD -1 INTO RO TO INITIALIZE LOG! 
LOCATION FOR LOGICAL AND OF BAD Dat 


CAL AND LOCS 
A 


- §E&Q 0080 


| 
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SCOPE HANDLER ROUTINE SEQ 0081 
020174 010067 161026 MOV RO, ADRAND SLOCATION FOR LOGICAL AND OF ADDRESS 
020200 010067 161032 MOV RO. PATAND SLOCATION FOR LOGICAL AND GF PATTERN LOADED 

032777 040000 160736 BIT #40000, aSwR :3** LOOP ON PRESENT TEST? 
001117 BNE SOVER -ee YES IF SW14=1 
-#AARASTART OF CODE FOR THE XOR TESTER#SMAM 
000416 XTSTR: BR “y :31F RUNNING ON THE "OR" TESTER CHANGE 
‘THIS INSTRUCTION TO A ‘NOP’' (NOP=240) 
C13746 000004 MOV @FERRVEC ,=(SP) 17 SAVE THE CONTENTS OF THE ERROR VECTOR 
020242 000004 MOV #5$, AMERRVEC iSET FOR TIMEOUT 
177060 TST a#177060 TIME OUT ON XOR? 
000004 MOV (SP) +, A#ERRVE ( : :RES ORE THE ERROR VECTOR 
RR SSVLAD :GO TO THE NEXT TEST 
S$: CMP (SP) +, (SP)+ “CLEAR THE STACK AFTER A TIME OUT 
000004 MOV (SP) +, AERRVEC : URESTORE THE ERROR VECTOR 
BR 7$ LOOP ON THE PRESENT TEST 
6%: ;M#AAAEND OF CODE FOR THE XOR™ iESTERDwaNe 
000400 160670 BIT #B1TO8, aSwR :i** LOOP ON SPEC. TEST? 
BEQ 2$ : IF NO 
160662 MOV a@SWR,-(SP) se SET DESIRED TEST NUM. FROM SwR 
000300 BIC ASSWRMK, (SP) «STRIP AWAY UNDESIRED BITS 
160602 CMPR (SP)+,$TSTNM ::ON THE RIGHT TEST? 
BEQ $OVER :2BR IF YES 
160575 2$: TSTB ~—s- SERFLG [HAS AN ERROR OCCURRED? 
BEG 3$ ::BR IF NO 
160601 160565 CMP SERMAX, SERFLG oe ir ERRORS FOR THIS TEST OCCURRED? 
H : 
001000 160624 BIT #B1T09, aSWR :** LOOP ON ERROR? 
BEQ 4$ ::BR IF NO 
160554 160550 7$: MOV SLPERR. SLPADR SET LOOP ADDRESS TO LAST SCOPE 
V 
160537 4$: CLRB = SERFLG :2Z7ERO THE ERROR FLAG 
160640 CLR $TIMES 77 CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ iZESCAPE TO THE NEXT TEST 
004000 160572 3$: BIT #BIT11.aSWR a INHIBIT ITERATIONS? 
BNE 1$ :2BR IF YES 
177636 TST €°ASS ‘IF FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
160510 INC $ICNT *tINCREMENT ITERATION COUNT 
160610 160502 CMP STIMES,SICNT :CHECK THE NUMBER OF ITERATIONS MADE 
3GE SOVER :2BR IF MORE ITERATION REQUIRE 
000001 160472 1$: MOV #1,$1CNT ; ;REINITIALIZC THE ITERATION COUNTER 
000052 160570 MOV SMXCNT, STIMES SET NUMBER OF ITERATIONS TO DO 
160456 $SVLAD: INCB $TSTNM :; COUNT TEST RS 
160452 177370 MOVB  $TSTNM,STESIN ::** SET TEST # IN APT MAILBOX 
160450 MOV (SP) ,SLPADR SSAVE SCOPE LOOP ADDRESS 
160446 MOV (SP); $LPERR SAVE ERROR LOOP ADDRESS 
160544 CLR $ESCAPE * CLEAR THE ESCAPE FROM ERROR ADDRESS 
000001 160441 MOVB  #1,$ERMAX i0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
160422 160472 $OVER: MOV $1STNM, aDISPLAY es DISPLAY TEST NUMBER 
160420 mov $LPADR. (SP) Ba RETURN ADDRESS 
x 
SMXCNT: 2. MAX. NUMBER OF ITERATIONS 


|: Babandal cianisephebnndutiniiatssenesenneeneenentosesstenseinies 
.SBTTL ERROR HANDLER ROUTINE 
3*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
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020726 





116767 
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000001 
160240 
000142 


160260 
021472 
061000 


160164 
160262 


160566 


160404 


160364 


160304 
160274 
160324 


177170 
000004 


157140 


160234 
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: *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 
; * THE <a! ITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


;*SW15 

‘ecw! 3=1 

+ *Sw10= 1 
> *SwO9=1 
7 * CALL 


SERROR : 


7$: 


8$: 


21$: 
22$: 
2$: 


9$: 


3$: 


SE: 


HALT ON ERROR 
HALT CAN OCCUR 


BEF ORE — AFTER THE ERROR TYPEQUT 


INHIBIT eo TYPEOUTS 


BELL ON ERR 


LOOP ON ERROR 


N 7 ;ERROR=EMT AND N=ERROR ITEM NUMBER 


canoe TESTNO 


STSTNM,QDISPLAY :: 
aswR 


8$ 
#B1T10,aSwWR 
1$ 


$ 
(SP) , SERRPC 
#2, $ERRPC 


@SERRPC $i TEMB 


#B1T13,aSWR 
2$ 


PC ,ERTYPE 
-$CRLF 


#1,SENV 


SITEMB, “1 
PC, SATY 


0 
0 
22$ 


aSw& 
9$ 


ASENDAD 42 
3$ 


#B!T09,aSWR 
4$ 


$LPERR, (SP) 
$SESCAPE 
5$ 


;SAVE TEST NUMBER FOR ERROR TYPE OuT 
; COUNT ALL MULTIPLE ERRORS 

;SAVE RO FOR POSSIBLE TYPE OUT 

; SAVE R1 FOR POSSIBLE TYPE OUT 

;SAVE R2 FOR POSSIBLE TYPE OUT 

; SAVE R3 FOR POSSIBLE TYPE OUT 

;SAVE R& FOR POSSIBLE TYPE OUT 

;SAVE RS FOR POSSIBLE TYPE OUT 

32SET THE ERROR FLAG 

;;DON*'T LET THE FLAG GO TO ZERO 

** DISPLAY TEST NUMBER AND ERROR FLAG 
33** HALT ON ERROR = 1? 


Si HAL T 
32** BELL ON ERROR? 
; NO - SKIP 


:RING BELL 
:COUNT THE NUMBER OF ERRORS 
;GET ADDRESS OF ERROR INSTRUCTION 


;STRIP AND SAVE THE ERROR ITEM CODE 
rt ** SKIP TYPEQUT IF SET 

;SKIP TYPEOUTS 
::G0 TO USER ERROR ROUTINE 


z2** IS THIS APT? 
NO 


ie ** HALT ON ERROR 
sSKIP IF CONTINUE 

+ SHALT ON ERROR! 

sZACT=11? 

——- IF NO 


7 YES 
3** LOOP ON ERROR SWITCH SET? 
‘1BR IF NO 

; FUDGE RETURN FOR LOOPING 


i; CHECK FOR AN ESCAPE ADDRESS 
::BR IF NONE 
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160254 
001000 
177777 


000206 
000001 
000100 


000002 
176714 
176722 


176712 
176706 
000004 


000004 
000002 
156622 
161344 
000062 
176640 


176612 


000002 
176570 
000020 
000013 
000006 


176764 
176755 


000004 


176662 


000016 
000004 


176604 
000004 


$8: 


EREXIT: 


.SBTTL 
$ATY!: 
$ATY3: 


SATYS: 
$ATYC: 


2$: 


3$: 


RTI 
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SESCAPE , (SP) 
#SWI, ASWR 
#-1 ,@ACPUERR 


#177776, aAMARO 


a), TOF LAG 
a-1 > CPFLAG 
a=) ,MMFLAG 


i 2FUDGE RETURN ADDRESS SOR ESCAPE 


sARE YOU LOOPING ON THIS ERRUR? 

BRANCH IF NOT LOOPING ON ERROR 

CLEAR CPU ERROR REGISTER 

CLEAR MEMORY MANAGEMENT STATUS REGISTER 
‘INITIALIZE TRAP FLAG 

INITIALIZE CP TRAP FLAG 

ZINITIALiZE MEMORY MANAGEMENT TRAP FLAG 
RETURN TO TEST 


APT COMMUNICATIONS ROUTINE 


fF ARARAAAAAAAAAREAAARADRAAHEERARHRAARARERARARARARAAAARAREARAAEHAREED 


#1, SFFLG 
RO,-(SP) 
R1,~(SP) 
SF LG 


5$ 
#APTENV, SENV 
3$ 


MAPTSPOOL, sesh 
3$ 


@4(5P) ,RO 
#2,4 (SP) 
$MSGT YPE 
1$ 

RO, SMSGAD 
(RQ) + 

2$ 

$MSGAD ,RO 
RO 


RO, $SMSGLGT 
e° - SMSGTYPE 


04 (SP) 348 
"Sooe (SP) 
PC, $TYPE 

0 

$FFLG 

12$ 

SENV 

12$ 

$MSGTYPE 

11$ 

a4 (SP) . SFATAL 


72TO REPORT FATAL ERROR 
::T0 TYPE A MESSAGE 


32TO ONLY REPORT FATAL ERROR 


3=PUSH RO ON STACK 
73PUSH R1 ON STACK 
ee TYPE A MESSAGE ? 


:IF NOT: 6R 
:ZOPERAT ING, UNDER APT? 
Sy Fs SPOOL MESSAGES? 


sif BR 
+ GE T ME SSAGE ADDR. 
;BUMP RETURN ADDR. 
sSEE IF DONE W/ LAST XMISSTON? 
sIF NOT: WAIT 
: PUT ADDR IN MAILBOX 
7cF IND END OF MESSAGE 


;;SUB START OF MESSAGE 
3:GET MESSAGE LNGTH IN WORDS 
77PUT LENGTH IN MAILBOX 
7; TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 

, ;PUSH 199776 ON STACK 

‘CALL TYPE MACRC 


ats a ys FATAL ERROR? 
RUNNING UNDER APT? 
NOT: 


BR 
:F INI SHED Last ME SSAGE ? 
SIF NOT: WAIT 
:GET ERROR ", 
;BUMP RETURN ADDR. 
3 TELL abt TO TAKE ERROR 
TCLEAR FATAL FLAG 
: CLEAR LG FLAG 
:iCLEAR MESSAGE FLAG 
POP STACK INTO #1 
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2199 


021242 


021250 


021252 


021350 
021350 


021354 
021356 
021362 


021426 
021426 


021432 


021454 


005046 
012746 


021462 


176512 
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(SP) +,R0 
PC 
SMFLG: .BYTE 0 
SLFLG: 0 
SFFLG: et 0 


APTSIZE= 300. 


APTCSUP=040 


ZcFATAL FLAG 


ff SAAR SARA AAAATERARAAAAAAAAAHAAAAAARAAAAAAAAAHAHARAAAEARATAAAAANE 


.SBTTL END OF PASS ROUTINE 


;* INCREMENT THE PASS NUMBER ($PASS) 
;* INDICATE END-OF PROGRAM AFTER 1 PASSES THRU THE PROGRAM 


;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT vryyy"' 


S*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 


;*IF SW12=1 INHIBIT TRACE TRAP 


3*IF THERES A MONITOR GO 10 iT 


:eIF THERE ISN*T JUMP TO LOOP 
SEOP: 
SCOPE ;LOOP ON LAST TEST 
CLR MMRO ; TURN OFF FULL RELOCATION 
CLR MMR 3S DISABLE THE UNI MAP 
TBITR RESTORE THE T BIT IF IT WAS ON 
CLR $STSTNM 77 ZERO THE TEST NUMBER 
CLR STIMES 77 ZERO THE NUMBER OF ITERATIONS 
INC $PASS 77 INCREMENT THE PASS NUMBER 
BIC #100000, $PASS 7 DON'T ALLOW A NEG. NUMBER 
DEC (PC) + 3 3¢LOOP? 
$EOPCT: .WORD 
BGT $DOAGN gsVes 
MOV (PC) +,a(PC)+ sZRESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE ror fide, ASCIZ STRING 
tov OVER THE ASCIZ 
Ca ASCIZ 2} PASS # 
64$: 
MOV $PASS,~-(SP) fe SPASS FOR TYPEOUT 
TYPE PASS NUMBER 
TYPDS “60 await ates ASCII] WITH SIGN 
TYPE ,67$ s TYPE ASCIZ STRING 
BR 6 *GET OVER THE ~ 
jig?s: -ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
MOV SERTTL,-(SP) ny SERTTL FOR TYPEOUT 
72 TOTAL NUMBER OF ERRORS 
TYPDS 3:G0 TYPE--DECIMAL ASCII] WITH SIGN 
TYPE ~SCRLF 77 TYPE CARRIAGE RETURN, LINE FEED 
CLR S$ERTTL 72 CLEAR ERROR TOTAL 
$GET42: MOV a442,R0 :;GET MONITOR ADDRESS 
BEQ $DOAGN ; ;BRANCH IF NO MONI TOR 
CLR -(SP) sty THE ‘‘T’’ BIT iS CLEAR 
MOV M$CLRLT,-( SP) ;SETUP FOR AN RTI OR ® 


SEQ 0084 


; 


mos 
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END OF PASS ROUTINE SEQ 0085 
021460 000427 BR $RTRN 3G0 DO AN RT] OR | RTT 4 LOAD THE PSw 
swith A CLEARED ‘'T’' BIT 
021462 $CLRVT: 
021462 013700 000042 MOV @F42 RO ; s INSURE RO "Pe gaan THE MON] TORS 
021466 001405 BEG SDOAGN RETURN ADDRESS 
021470 000005 RESET ae CLEAR THE WORLD 
021472 0046710 $SENDAD: JSR PC, (RO? ‘60 TO MONITOR 
21474 000240 NOP 3, SAVE ROOM 
021476 000240 NOP Pi 
021500 000240 NOP sZACT11 
021502 SPOAGN: 
021502 013746 177776 MOV @APS,=-(SP) scPUT THE PS ON STACK AND 
021506 042716 000020 Bic #20, (SP) 77 CLEAR THE OM § 
021512 032777 Q10000 157430 BIT #BiT12,aSwWR Tee RUN WITH TRACE TRAP? 
021520 001005 BNE 1$ ;BR IF NO 
021522 005167 000020 COM $TBIT i218 IT TIME FOR TRACE TRAP 
021526 100402 BM! 1$ IF NO 
021530 052716 9000020 BIS #20,(SP) t:SET TRACE TRAP 
021534 012746 021542 1$: MOV #$_OOP ,-(SP) set TO START OF TEST 
021540 000002 $RTIRN: RTI RETURN=-THIS IS CHANGED TO 
AN 'RIT'' TF ‘RTT IS A LEGAL 
< INSTRUCTION 
021542 F $L OOP : 
021542 00C137 01633: JMP @4. OOP 7 RETURN 
021546 000000 $TRI]7: WORD 0 22°'T'' BIT STATE INDICATOR 


021550 377 577 O00 SENULL: .BYTE #1,=1,0 ZENULL CHARACTER STRING 
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2201 
2202 


0 
2203 
02 


2205 
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ey 
=|MONWWNEO 
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Oooo ra One 
WANMOO® 


DONVUNF SOW 


Wasa aheee cena 
OWO-]WO0—OVENM 
MAMI NORAMAK VYNOWN ONO - DOW 


—_ 


2 md ad od 
-O00 SO 


- SBTTL 
FM): 


EM2: 


EM3: 


FMA: 


ERROR MESSAGES AND DATA TABLES 


ASCIZ 


ASCIZ 


ASCIZ 


-ASCIZ 


2NOT THE CORRECT TRAP CONDITION THRU ERRVE! (#004) 7 


DUNEXPECTED CPU TRAP THRU ERRVEC (#004)? 


UNEXPECTED CACHE PARITY ERROR THRU CACHVEC, WILL RETRY TEST ONCE? 


UNEXPECTED MAIN MEMORY PARITY FRROR THRU (CACHVEC, WILL SETRY 


TEST 


ONCE? 


a) 
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SEQ 0087 


2UNEXPECTED MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS? 


2SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ? 


wisliacetsinnaiarmeeigieindeinameguiangitediiaiaaeaisinnianieill 


— ee | 
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— 
o— 
Wor 


S 


ot ss 1d 3. 
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105 
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oO 


EM7: 


EM10: 


EM11: 


ASCIZ 


-ASCIZ 


eASCIZ 


2SUMMARY OF CACHE REGISTERS THAT TIMED OUT ON READ? 


2SUMMARY OF MAP REGISTERS NOT HOLDING ZERO IN LOW 16 BITS? 


?SUMMARY OF MAP REGISTERS NOT HOLDING ZERO IN UPPER 6 BITS? 


SEQ 0088 


os oe 
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123 


me 


?POSSIBLE ERROR IN MAP REGISTER DATA PATH (MAP REG 00)? 


att el 
on 


RSONNSGUERWR 


~~ O— 
wn 


Ons eS] NMNrvsF-00—-0—-Nv—- AENSRSOSSS=NSSNNSSNVS On 


?NOW PROBABLE ERROR IN MAP REGISTER DATA PATH (MAP REG 20)? 


?SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS? 


~~ Y oo—-—0 SS SS 3 YY oS 
NODO = NAWNMO NE SF ENMA AON 0] [] BMH NM HAIN NW NOOMOS £FO-NWMNOOONMONIW 
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ERROR MESSAGES AND DATA TABLES SEQ 0090 
023013 107 111 123 
C23016 124 105 122 
023021 123 000 

2214 023023 123 125 115 E—M15:  .ASCIZ ?SUMMARY OF COUNT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS? 
023026 115 101 122 
023031 131 040 117 

23034 106 040 103 
023037 117 125 116 
023042 124 040 120 
023045 101 124 124 
023050 105 122 1°6 
023053 040 106 101 
023056 111 114 125 
023061 122 105 123 
023064 040 111 116 
023067 040 114 117 
023072 127 105 122 
023075 040 061 066 
023100 040 102 111 
023103 124 123 040 
023106 117 106 040 
023111 115 101 120 
023114 040 122 105 
023117 107 111 123 
023122 124 105 122 
023125 123 000 

2215 023127 123 125 115 —M16:  .ASCIZ ?SUMMARY OF COUNT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS? 
023132 115 101 122 
023135 131 040 117 
023140 106 040 103 
023143 117 125 116 
023146 124 040 120 
023151 101 124 124 
023154 105 122 116 
023157 040 106 101 
023162 111 114 125 
023165 122 105 123 
023170 040 111 116 
023173 040 125 120 
023176 120 105 122 
023201 040 066 040 

23204 102 111 124 
023207 123 040 117 
023212 106 040 115 
023215 101 120 040 
023220 122 105 107 
023223 111 123 124 
023226 105 122 123 
023231 000 

2216 023232 103 117 125 —M17: .ASCII ?COULD NOT CLEAR CACHE CONTROL REGISTER?<CRLF > 
023235 114 104 040 
023240 116 117 124 
023243 040 103 114 
023246 105 101 122 
023251 040 103 101 
023254 103 110 105 
023257 040 103 117 


ma 
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ERROR MESSAGES AND DATA 
02 6s i we 
023265 32117, s«d16—titié«i 
023270 122 105 ~~ ~=— 10? 
023273 ‘111 123 ‘126 
023276 «=—«105-—St—tédd' 

2217 023301 me io. Sere ee LASCIZ POSSIBLE ERROR IN CACHE REGISTER DATA PATH? 
023306 = 128——St—«*227'7 102 
023307 = «174,—Ci(iti«‘0S~StsKO 
023312, «105 'si«édNRsSst*«é«*NCD 
023315 = 117, s«122—S—t—ti<«C 
023320111 116 040 
023323 = 103—St—«*21207 103 
023326 «= 110-—'isi‘éd105~—=i(‘ié«i 
023331 One! Pen ee 
0233342171 123 12% 
023337 «105. s«122—~St*Cté<“‘«i 
023342 104—Ss«*1207 124 

2335 101 060 120 
023350 101 124 110 
023353 000 

2218 023354 103 117 125 EM20: eASCI] ?COULD NOT .CLEAR CACHE MAINTENENCE REGISTER?<CRLF> 
023357 114.—'i—i«*d10KH_si‘<‘é‘éi 
02332 2«o116si«‘is«dDG 

23365 = 040,'i(iéi13~SCti‘iG 
023370 ©=26'105-—Ss—«*22027 122 
023373 = 040-Ss—sid108~—St—«*21*02 
023376 «=6108——«‘a10'~—'=ié‘i02085; 
023401 040 115 101 

23404 111 116 124 
023407 42 105'''isi16—S—SS—«*2:05 
023412 «= 116—Ss«*108-———«*2108 
023415 060 122 ~—-105 
023420 107 111 123 
023623 = 126.—Ct(i«‘z20S's'i(‘<iéi2 
023426 200 

2219 023427 120,2S's«d1?-—™—=«*22B LASCI12 POSSIBLE ERROR IN CACHE REGISTER DATA PATH? 
0236322 128—CSté«*22Y'ST 102 
023435 3114S s«d105-—'—iti«KO 
023440 105 122 122 
023443 4320117, s«*122—Ss«(40 
023446 111 116 040 
023451 103 101 103 
023454 110 105 040 
023457 122—S'i«d1005~—i‘é‘iN27 
0234622111 123 ‘12% 
023465 105 122 040 
023470 104 101 124 
023473 «= 101 —i(itiH—~«=‘«é«‘i2 
023476 ~—-107 124 110 
023501 000 : 

2220 023502 103 117 125 EM21: -ASCII ?7COULD NOT READ 177740 FROM CACHE LO ADDRESS REG (LOADRS) ?<CRLF> 
023505 43s «114.—i(it«z20Ki(ité«i 
023510 4116 «89117 —«124 
023513 = 040Ss«d122—~StSt«*208 
023516 = 101 104 040 
023521 061 067 ~=«067 
023526 067 —Ss«64St~«é« 


SEQ 0091 


- 


nn 
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ERROR MESSAGES AND DATA TABLES SEQ 0092 
023527 040 106 122 
023532 117 115 040 
023535 103 101 103 
023540 110 105 040 
023543 114 117-040 
023546 101 104 104 
023551 122 105 123 
023554 123 040 122 
023557 105 107-040 
023562 050 114 117 
023565 101 104 122 
023570 123051 200 

2221 023573 120 117 123 -ASCIZ ?POSSIBLE ERROR IN CACHE REGISTER DATA PATH? 
023576 123 111 102 
23601 114 105 040 
023604 105 122 122 
023607 117 122 040 
023612 111 116 040 
023615 103 101 103 
023620 110 105 040 
023623 122 105 107 
023626 117 123 124 
023631 105 122 040 
023634 104 101 124 
023637 101 040 120 
023642 101 124 110 
023645 000 

2222 023646 103 117 125 EM22: -ASCII ?COULD NOT READ 000003 FROM CACHE HI ADDRESS REG (HIADRS)?<CRLF> 
023651 114 104 040 ’ 
023654 116 117 124 
023657 040 122 105 
023662 101 104 040 
23665 060 060 060 
023670 060 060 063 
023673 ~=—s--040 106 122 
023676 117 115 040 
023701 103 101 103 
023704 110 105 040 
023707 110 111 040 
023712 101 104 104 
023715 122 105 123 
023720 123 040 122 
023723 105 107 040 
023726 «050 110 111 
023731 101 104 122 
023734 123.051 200 

2223 023737 120 117 123 -ASCIZ ?POSSIBLE ERROR IN CACHE REGISTER DATA PATH? 
023742 123 111 102 
023745 114 105 040 
023750 105 122 122 
023753 117 122 040 
023756 111 116 040 
023761 103 101 103 
023764 110 105 040 
023767 122 105 10? 
023772 117 123 126 
023775 105 122 040 
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EM23: 


EM24: 


EM25: 


-ASCIZ 


ASCi2Z 


-ASCIZ 


SEQ 0093 


2? SUMMARY OF COUNT PATTERN FAILURES IN CACHE CONTROL REGISTER? 


?SUMMARY OF COUNT PATTERN FAILURES IN CACHE MAINTENENCE REGISTER? 





?REFERENCED MAP REGISTER 0 WITH ADDRESS ONF BIT DIFFERENT THAN 770200? 


D 8 
CKKUAAO 11/46 UBI MAP = MACRO M1117) 20=SEP=79 11:20 PAGE 63-8 
ERROR MESSAGES AND DATA TABLES SEQ 00% 
024247 104 12 105 
024252. 123 ~»=12 040 
024255 Ne ote =e 
24 060 102 111 
026263 124 046C 104 
024266 2-111 106 106 
024271 105 122 105 
024276 116 102 040 
024277 «124 110 ~—101 
024302 116 «©0460 ~=—067 
024305 067 060 062 
024310 060 060 000 
2227 026313 == 122 105 106 EM26: ASCII REFERENCED CACHE LOW ADDRESS REGISTER WITH ADDRESS ONE BIT?<CRiF> 
024316 105 122 105 
024321 116 103 ~—-:105 
024324 106 060 103 
024327 101 108 = «110 
024332 105 0460 114 
024335 Lae eee 
024340 101 104 104 
024 343 122 105 123 
026346 123 040 122 
024351 105 107111 
024354 128 6 105 
0246357, 122—St—i—«H—~—éi22? 
0243622111 124 110 
024365 040 101 104 
024370 = 104 122-105 
024373 = 1238-—Cti«‘28~=~*:*«K 
024376 117 116 105 
024401 0460 102 ~~ 111 
024404 124 200 
2228 024406 104 111 106 ASCIZ DIFFERENT THAN 777740? 
024411 106 ~—«:105 122 
024414 105 116 124 
024417 040 124 110 
024422 101 116 040 
024425 067 067 ~=— 067 
024430 067 064 060 
024433 000 
2229 024434 103 101 116 EMS3O: -ASCII ?2CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF O<CRLF> 
Yh 5 Ae 4 Ae | ° See 
024442 107 —-:105 124 
024445 040 126 117 
024450 040 115 101 
024453 117 116 040 
024456 = 115 105 115 
024461 HN? 122 539 
024464 040 106 122 
024467 rie 115 040 
024472 125 1629-111 
024475 102 «125 123 
024500 040 127 ~~ 117 
024503 = 124 110 040 
024506 124 110 ~—-105 
024511 040 115 101 
024514 120 040—St—i«*2”T 









CKKUAAO 11/64 UBI MAP MACRO M1111) 20=SEP=79 11°20 PAGE 63-9 
ERROR MESSAGES AND DATA TABLES 

024517 106 106 =. 200 

2230 024522 123 117-040 ASCIZ 280 I*Li JUMP TO THE SIZE JUMPER TEST FOR VERIFICATION? 
024525 111 047 114 
24530 114 040 112 
024533 125 115 120 
024536 040 124 117 
024541 040 124 110 
024544 105 040 123 
024547 111 132 105 
024552 040 112 125 
024555 115 120 105 
24560 122 040 124 
024563 105 123 124 
024566 040 106 117 
024571 122 040 126 
024574 105 122 111 
024577, «106 111 103 
024602 101 126 111 
024605 117 116 900 

2231 0246106 123 125 115 EM31: eASCIZ ?SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH? 
024613 115 101 122 
024616 131 040 117 
024621 106 040 103 
024624 117 125 116 
024627 124 040 120 
024632 101 124 124 
024635 105 122 116 
024640 040 106 101 
024643 111 114 125 
024646 122 105 123 
024651 040 117 116 
024654 040 124 110 
024657 105 040 125 
024662 116 11 102 
024665 125 123 040 
024670 104 101 124 
024673 101 040 120 
024676 101 124 110 
024701 000 

2232 024702 125 116 111 EM32-  .ASCIZ.2UNIBUS MAP IS RELOCATING WHEN NOT ENABLED? 
024705 102 125 123 
024710 040 115 101 
024713 120 040 111 
024716 123 040 122 
024721 105 114 117 
024724 103 101 124 
024727 111 116 107 
024732 040 127 110 
024735 105 116 040 
024740 116 117 124 
024743 040 105 116 
024746 101 102 114 
024751 105 104 000 

2233 026754 103 101 116 —M33:  .ASCI! 2CANNOT USE ANY OF THE MAP REGISTERS.POSSIBLY DUE?<CRLF > 
024757 116 117 126 
024762 040 125 123 
024765 105 040 101 








CKKRUAAO 11/44 UBI MAP 
FRROR MESSAGES AND DATA 
024770 116 
024773 117 
026776 126 
025001 040 
£004 120 
025007 105 
025012 123 
025015 122 
025020 120 
025023 123 
025026 114 
025031 104 
025034 200 
2234 025035 124 
025040 125 
025063 10? 
025046 040 
025051 115 
025054 131 
025057 116 
025062 114 
025065 105 
025070 122 
025973 110 
025076 111 
025101 114 
025104 104 
025107 105 
025112 040 
025115 124 
025120 064 
025123 124 
025126 113 
025131 11? 
25134 200 
2235 025135 126 
025140 040 
025143 117 
025146 101 
025157 127 
025154 114 
025157 105 
025162 101 
025165 000 
2236 
2237 025166 124 
025171 040 
025174 132 
025177 112 
025202 120 
025205 123 
025210 116 
25213 110 
025216 125 
025221 102 
025226 040 
025227 120 
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SEQ 0096 


ER 
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-ASCI] 270 UNISUS MEMORY IN PLACE OR PHYSICAL ADDRESS BIT 14 STUCK LOW. ?<CRLF > 


eASCIZ ?THE PROGRAM WILL RESTART? 
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EM35: eASCII] = 2THE SIZE JUMPERS ON THE UNIBUS MAP ARE NOT SET IN?<CRLF > 
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FRROR MESSAGES AND DATA TABLES SEQ 0097 
025232 122 105 040 
025235 116 11? 124 
025240 040 123 105 
025243 124 040 117 
025246 116 200 

2238 025250 124 110 105 ASCII 2 THEIR DEFAULT POSITION FOR FULL TEST COVERAGE .?<CRiF> 
025253 117 122 040 
025256 104 105 106 
025261 101 125 114 

25 126 040 120 
25267 117 123 111 
025272 124 11] 117 
025275 116 040 106 
25300 117 122 040 
025303 106 125 114 
25306 114 040 124 
025311 105 123 104 
025314 040 103 117 
025317 126 105 122 
025322 101 107 195 
025325 040 056 200 

2239 025330 124 110 105 ASCII THE DEFAULT POSITION ALLOWS UNIBUS ADDRESSES?<CRLF > 
025333 040 104 105 
025336 106 101 125 
025341 114 124 040 
025344 120 117 123 
025347 111 126 171 
025352 117 116 040 
025355 101 114 114 

25360 117 127 123 
025363 040 125 116 
25366 111 102 125 
025371 123 040 101 
025374 104 104 122 
025377 105 123 123 
025402 105 123 200 

2240 025405 060 060 060 ASCII 2000000 TO 757776 TO REFERENCE MAIN MEMORY. ?<CRLF> 
025410 060 0 060 
025413 040 124 117 
025416 040 067 065 
025421 067 067 067 
025424 066 040 124 
025427 117 040 122 
025432 105 106 105 
025435 122 105 116 
025440 103 105 040 
025443 115 101 111 
025446 116 040 115 
025451 105 115 117 
025454 122 131 056 
02545 200 

2241 025460 124 110 105 ASCII] THE DIAGNOSTIC,IF CONTINUED, WILL TEST WITH REDUCED (COVERAGE 2<CRLF > 
025463 040 104 111 
025466 101 107 116 
025471 117 123 124 
025474 111 103 054 
025477 117 106 040 


CKKUAAQ 11/44 UB] MAP MACRO M1111) 20=SEP=79 11:20 PAGE 63-12 


ERROR MESSAGES AND DATA TABLES SEQ 0098 | 
025502 103 117 116 | 
025505 124 711 116 
025510 125 105 104 | 
025513 054 040 127 
025516 111 114 114 
025521 040 124 105 
025524 123 124 040 
025527 127 171 124 
0255 110 040 122 
025535 105 104 125 
025540 103 105 104 
025543 049 103 117 
025546 126 105 122 
025551 101 107 105 
025554 200 

2242 025555 125 123 111 ASCII. 2USING THE CONSTRAINT THAT MAIN MEMORY WILL RESPOND ?<CRLF > 
025560 116 107 040 
025563 040 124 110 
25566 105 040 103 
025571 117 116 123 
025574 124 122 101 
025577 111 116 124 
025602 040 124 110 
025605 101 124 040 
025610 115 101 111 
025613 116 040 115 
025616 105 115 117 
025621 122 131 040 
025624 127 111 114 
025627 114 040 122 
025632 105 123 120 
025635 117 116 104 
— _ 025640 200 
2243 025641 124 117 040 -ASCIZ 270 THE RANGE OF UNIBUS ADDRESSES SPECIFIED BY THE FOLLOWING:” 
025644 124 110 105 
025647 040 122 101 
025652 116 107 705 
025655 040 117 106 
5660 125 116 
625663 114 102 125 
25666 123 040 101 
025671 104 104 122 
025674 105 123 123 
025677 105 123 040 
025702 123 120 105 
025705 103 111 106 
025710 111 105 104 
025713 040 102 131 
025716 040 124 110 
025721 105 040 106 
025724 117 114 114 
025727 117 127 111 
25732 116 107 072 
025735 000 
2244 025736 115 101 120 EM36:  .ASCIZ 2MAP REGISTER UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST 
025741 040 122 105 . 
025744 107 111 123 


——— hE ? 


«eJAAOQ 11/66 UB] MAP MACRO M1111) 20=SEP=79 11:20 PAGE 635-13 
FRROR MESSAGES AND DATA TABLES SEQ 0099 
025747 124 105 122 
02575 060 125 116 
02575 106 105 122 
25760 040 124 105 
025763 123 1246 940 
025766 104 111 104 
025771 0460 116 117 
025774 124 0460 122 
025777 105 123 120 
026002 117 116 104 
026005 049 1117 116 
026010 040 104 125 
026013 101 114 040 
026016 115 101 120 
026021 120 111 116 
026024 107 040 124 
026027 105 123 124 
: 026032 000 
2245 026033 123 125 115 E—M37: -ASCIZ ?2SUMMARY OF UNIBUS ADDRESS ERRORS, WITH THE MAP RELCCATION DISABLED? 
026036 115 101 122 
026041 131 040 117 
026044 106 040 125 
026047 116 117 102 
026052 125 123 040 
026055 101 104 104 
26060 122 105 123 
026063 123 040 105 
026066 122 122 117 
026071 122 123 054 
026074 040 127 111 
026077 124 110 040 
026102 1246 110 105 
026105 40 115 101 
026110 120 040 122 
026113 105 114 117 
026116 103 101 124 
026121 111 Tie 116 
026124 040 104 111 
026127 123 101 102 
026132 114 105 104 
026135 900 
2246 026136 115 101 111 EM4O: eASCIZ ?MAIN MEMORY TIMEOUT OVER THE UNIBUS DID NOT OL“!IR PROPERLY? 
026141 116 040 115 
026144 105 115 117 
026147 122 131 040 
026152 124 111 115 
026155 105 117 125 
026160 126 040 117 
026163 126 105 122 
026166 040 124 110 
026171 105 040 125 
026174 116 117 102 
26177 125 123 040 
026202 104 111 104 
026205 040 116 117 
026210 126 040 117 
026213 10% 103 125 
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ERROR MESSAGES AND DATA TABLES SEC 0100 
026216 122 040 120 
026221 122 117 120 
026224 105 122 114 
02622 131 000 

2247 02623' 122 105 114 EM41: .ASCIZ RELOCATION THRU THE MAP WAS NOT CORRECT, FULL ADD? 
0262 117 103 101 
026237 124 141 117 
026242 116 040 124 
026245 110 122 125 
926250 040 124 110 
026253 105 040 115 
026256 101 120 040 
026261 127 101 123 
026264 040 116 117 
026267 124 040 103 
026272 117 122 122 
026275 105 103 124 

26300 054 040 106 
026303 125 114 114 
026306 040 101 104 

: 026311 104 000 

2248 026313 122 105 114 EM42: .ASCIZ ?RELOCATION THRU THE MAP WAS NOT CORRECT, CARRY PROPAGATION? 
026316 117 103 10% 
026321 124 117 117 
026324 116 C40 124 
026327 110 122 125 

26332 040 124 110 
026335 105 040 115 
026340 101 120 040 
026343 127 101 123 
026346 040 116 117 
026351 124 040 103 
026354 117 122 122 
026357 105 103 124 
026362 054 040 103 
026365 101 122 122 
026370 i31 040 120 
026373 122 117 120 
026376 101 107 101 
026401 124 111 117 
026404 116 0U0 

2249 026406 124 110 105 €M43: .ASCi2 ?THE TOP OF MEMORY IS DIFFERENT THAN THE SIZE JUMPERS? 
026411 040 124 117 
026414 120 040 117 
026417 106 040 115 
026422 105 115 117 
026425 122 131 040 
026430 111 123 040 
0264 33 104 111 106 

264 36 106 105 122 
026441 105 116 124 
026444 040 124 110 
026447 101 116 040 
026452 124 * 0 105 
026455 040 125 111 
026460 132 105 040 
026463 112 125 115 
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ERROR MESSAGES AND DATA SEQ 0101 
0264 120 105 122 
026471 123 000 

2250 026673 115 161 111 €M45: ASCII]. «MAIN MEMORY TIMEOUT OVER THE UNIBUS CID NOT OCCUR PROPERLY?<CRLF> 
026476 116 040 115 
026501 105 715 117 
026504 122 131 040 
026507 124 111 115 
026512 105 117 125 
026515 124 040 117 
026520 126 105 122 
026523 = 040 124 110 
026526 105 040 125 
026531 116 111 102 
026534 125 123040 
026537 104 111 104 
026542 040 116 117 
026545 im 00 5°39 
026550 103 108 125 
026553 i122 040 120 
026556 122 117-120 
026561 105 122 114 
026564 131 200 

2251 026566 124 105 123 ASCIZ  ?TEST CODE BEING RUN OVER UNIBUS? 
026571 124 040 103 
026574 117-106 105 
026577. 040 102 105 
026602 111 116 107 
026605 040 122 125 
026610 116 04U 117 
026613 126 105 122 
026616 040 125 116 
026621 111 102 125 

026624 123 000 

2252 026626 122 105 114 EMG6: eASCI]] ?RELOCATION THRU THE MAP WAS NOT CORRECT, FULL ADD?<CRLF> 
026631 117 103 101 
026634 124 111 117 
026637 116 040 124 
026642 110 122 125 
026645 040 124 110 
026650 105 040 115 
026653 101 120 040 

26656 127,101 123 
026661 040 116 117 
026664 124 040 103 
026667 117: 122 122 
026672 105 103 124 
026675 054 «= 040 106 
026700 125 114 114 
026703 040 101 104 

026706 104 200 

2253 026710 124 105 123 -ASCIZ 2TEST CODE BEING RUN OVER UNIBUS? 
026718 «= 726i Hs 1088 
026716 117 104 105 
026721 040 102 105 
026724 111 116 107 
026727 4 040—S—s«*22 125 
026732 116 040 117 
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SEQ 0102 


ASCII 7RELOCATION THRU THE MAP WAS NOT CORRECT, CARRY PROPAGATION?<CRiF > 


-ASCIZ = ?TEST CODE BEING RUN OVER UNIBUS? 


eASCI] ?THE TOP OF MEMORY IS DIFFERENT THAN THE SIZE JUMPERS?<CRiF > 


eASCIZ 2TEST CODE BEING RUN OVER UNIBUS? 
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ERROR MESSAGES AND DATA TABLES SEQ 0103 
27206 111 116 107 
27207 040 122 125 

027212 116 040 117 
027215 126 105 122 
027220 040 125 116 
027223 111 102 125 
027226 123 000 

2258 027230 124 105 123 eASCIZ = ?TEST CODE BEING RUN OVER UNIBUS? 
027233 124 040 103 
027236 117 104 105 
027241 040 102 105 
027244 111 116 107 
027247 040 122 125 
027252 116 040 117 
027255 126 105 122 
027260 040 125 116 
027263 111 102 125 
027266 123 000 

2259 027270 123 125 115 EMS2: .ASCIZ ?SUMMARY OF DUAL MAPPING ERRORS? 
027273 115 101 122 
027276 131 040 117 
027301 106 040 104 
027304 125 101 114 
027307 040 115 101 
027312 120 120 111 
027315 116 107 040 
027320 105 122 122 
027323 117 122 123 
027326 000 

2260 027327 124 110 105 —M201: .ASCIZ ?THE FOLLOWING REGISTERS TIMED OUT WHEN READ? 
027332 040 106 117 
027335 114 114 117 

7340 127 111 116 

027343 107 040 122 
027346 105 107 111 
027351 123 124 105 
027354 122 123 040 
027357 124 111 115 
027362 105 104 040 
027365 117 125 124 
027370 640 127 110 
027373 105 116 040 
027376 122 105 101 
027401 104 000 

2261 027403 124 110 105 EM202: .ASCIZ ?THE FOLLOWING MAP REGISTERS WILL NOT CLEAR? 
027406 040 106 117 
027411 114 114 117 
027414 127 111 116 
027417 107 040 115 
027422 101 120 040 
027425 122 105 107 
027430 111 123 124 
027433 105 122 123 
027436 040 127 111 
027443 114 114 040 
027444 116 117 124 
027447 040 103 114 
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EM205: 


EM204: 


EM205: 


EM206: 


eASCIZ 2THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP? 


-ASCIZ ?THE COUNT PATTERN THRU THE MAP REGISTERS FAILED? 


-ASCIZ ?UNIBUS DATA PATH COUNT PATTERN FAILURE? 


-ASCIZ ?UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED? 


SEQ 0104 
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ERROR MESSAGES AND DATA TABLES SEQ 0105 
027722 105 122 122 
027725 117 122 123 
027730 054 040 115 
027733 101 120 040 
027736 122 105 114 
027741 117 103 101 
027744 124 177 117 
027747 116 040 104 
027752 111 123 101 
027755 102 114 105 
027760 104 000 
2266 027762 103 117 125 EM207: .ASCIZ ?COUNT PATTERN FAILURES IN CACHE REGISTERS? 
027765 116 124 040 
027770 120 101 124 , 
027773 124 105 122 
027776 116 040 106 
030001 101 111 114 
030004 125 122 105 
030007 123 040 111 
030012 116 040 103 
030015 101 103 110 
030020 105 040 122 
030023 105 107 111 
030026 123 124 105 
2067 030031 122 123 000 
2268 030034 122 105 103 DH1: -ASCIZ ?RECEIVD EXPECTD TESTNO PC AT ABORT? 
030037 105 111 126 
030042 104 040 105 
030045 130 120 105 
30050 103 124 104 
030053 040 124 105 
030056 123 124 116 
030061 117 040 040 
030064 120 103 040 
030067 101 124 040 
030072 101 102 117 
030075 122 124 
2269 030100 122 105 103 DHe: -ASCIZ ?RECEIVD TESTNO PC AT ABORT? 
030103 105 111 126 
030106 104 040 124 
030111 105 123 124 
050114 116 117 040 
030117 040 120 103 
030122 040 101 124 
030125 040 101 102 
030130 117 122 124 
030133 000 
2270 030134 103 117 116 DH3: eASCII ?CONDITN ADDRESS MAINTEN CONTROL ?<CRLF > 
030137 104 111 124 
030142 116 040 101 
030145 104 104 122 
030150 105 123 123 
030153 040 040 040 
030156 115 101 111 
030161 116 124 105 
030164 116 040 103 
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ERROR MESSAGES AND DATA TABLES SEQ 0106 
030167 117 116 126 
030172 122 117 114 
030175 200 
2271 030176 122 105 103 eASCIZ ?RECEIVD REFERENCD REGISTR REGISTR TESTNO PC AT ABORT? 
030201 105 111 126 - 
030204 104 040 122 
030207 105 106 105 
030212 122 105 116 
030215 103 104 040 
030220 122 105 107 
030223 111 123 124 
030226 122 040 122 
030231 105 107 111 
0302 123 124 122 
030237 040 124 105 
030242 123 124 116 
030245 “17 040 040 
030250 120 103 040 
030253 101 124 040 
030256 101 102 117 
030261 122 124 000 
2272 030264 123 124 101 DHS: eASCII 2STATUS AUTOI/D VIRTUAL ?<CRLF> 
030267 124 125 123 
030272 040 040 101 
030275 125 124 117 
030300 111 057 104 
030303 040 126 111 
30 122 124 125 
030311 101 114 200 
2273 030314 122 105 107 -ASCIZ ?REGISTR REGISTR ADDRESS TESTNO PC AT ABORT? 
030317 111 123 124 
030322 122 040 122 
03032 105 107 111 
030330 123 124 122 
030333 040 101 104 
030336 104 122 105 
030341 123 123 040 
030344 124 105 123 
030347 124 116 117 
030352 040 040 120 
030355 103 040 101 
030360 124 040 101 
030363 102 117 122 
0302646 124 000 
2274 030370 122 105 107 DH6: -ASCII ?REGADRS REGADRS?<CRLF > 
030373 101 104 122 
030376 123 040 122 
030401 105 107 101 
030404 104 122 123 
- 030407 200 
2275 030410 040 042 117 aSCiz 2? TR" “"AND'' @ERRORS TESTNO ERRORPC? 
030413 122 042 040 
030416 040 040 040 
030421 042 101 116 
030424 104 042 040 
030427 040 043 105 
030432 122 122 117 










2276 


0 
2278 


2279 


0 
2280 


0 
2277 
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ERROR MESSAGES AND 


PR=PSPRRSenesesonenseneaan EF 
MONO EF ANIAWO & JUIW = MONNO & £57 


— 
— 
WE BE MWNUINWO WENN ES NOOO WAWNYINWO NWO OOO NO 


RUSSSSN=RUSSLS=URISE 


ee ee eS 
OO—NM0O—-0—% 


SS 


ATA 


San A 3 MMs —-Oor 
VINIMNOKM OVOOVW 


RESERER 
MON -ONNO-—MW 


Rw 
oO 


mash ngewe ae 
MNMNMNLOS 
OF SMNMOEFENM 


g 


~~ 


MOF -ODMONMNOGO O-O0O 


~ 2 Oe St SS 


RSRRRRIRR= 
ODAAWNIWWN S| DNINOAGCON AWO?VW RMN WNYINWO 


o--—--— © 
££ on & 


122 


DH10: 


DH12: 


DH14: 


ASCII 


eASCIZ 


ASCII 


-ASCIZ 


ASTI! 


CRO M1111 20=SEP=79 11:20 PAGE 63-21 
ABLES 


?REGADRS REGADRS RECEIVD RECEIVD?<CRLF> 


? "OR" “AND'’ =" OR"® “AND'' MERRORS TESTNO ERRORPC? 


? COUNT COUNT ?<CRLF > 


2EXPECTD RECEIVD TESTNO ERRORPC? 


?REGLOAD REGLOAD REGDUAL REGDUAL ?<CRLF > 


SEQ 0107 
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L 


| 
ERROR MESSAGES AND DATA TABLES SEQ 0108 
030702 117 101 104 ; 
030705 040 122 105 
030710 107 106 125 
030718 701 116 040 
030716 122 105 10? { 
030721 104 125 101 
030734 116 200 { 
2281 030726 060 ae 117 ASCIZ. 2 OR" AND". "ORT. AND MERRORS TESTNO? 
030731 122 062 ~—:040 
030784 = 060s—i(iéiC(‘<«é‘é‘ 
030787 sa 101 116 
030742 104 042 040 
030745 4 060s—iKs—i(‘«é‘ 
030750 117 122 042 i 
30753 h0—(iti‘iti(<«i‘«i 
030756 «= :040—s—(‘é‘é 101 
030761 116 106 042 
030764 060 040 043 
030767 105 122 122 
030772 11? 155 153 
030775 040 154 105 
031000 123 134 116 r 
031003 117,000 
2282 031005 115 101 120 DH15: -ASCII] 2MAPREG MAPREG EXPECTD EXPECTD RECEIVD RECEIVD?<CRLF> { 
031010 ~—s-122 105 10? 
031013 0 040 115 
031016 101 120 122 
031021 105 107 040 
631024 0 105 130 
031027 120 105 103 
031032 154 106 040 
031035 105 130 120 
031040 105 102 134 : 
031043 104 040 152 | 
031046 105 103 105 
031051 111 126 104 
031054 040 132 105 
031057 103 105 111 
031062 126 106 200 
2283 031065 040 042 11? ASCI2. 2 COR" ANDT CORT. UANDTS ORT UAND'S - MERRORS TESTNO? 
031070 122 042 ~~ 040 
031078 040 040 040 
031076 = Oa2 101 116 
037101 104 042 040 
031106 040 040 062 
031107 117 12> Bee 
031112 060 040 060 
031115 040 042 101 
031120 116 104 042 
031123 = 060 (isiH——“(<«é‘«éi 
031126 = 0a2 117,—«122 
031131 042 060 040 
931134 060 040 062 
031137 101 116 104 
D31142 he KD 
31145 043 105 138 
031150 12 11? 155 
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FRROR MESSAGES AND DATA TABLES SEQ 0109 

031153 123 049 1246 
031156 105 123 1246 
031161 114 117 000 

2284 031164 122 105 103 DHI?7: eASCIZ PRECEIVD TESTNO ERRORPC? C 
031167 105 111 126 f 
031172 104 040 124 i 
031175 105 123 124 if 
031200 116 117 040 " 
031203 040 105 122 " 
031206 122 117 122 i 
031211 120 103 000 ( 

2285 031214 105. 130 120 Dx23: -ASCI] 2EMPECTD EXPECTD RECEIVD RECEIVD°<C ALF > 
031217 105 103 124 t 
031222 104 040 105 ( 
031225 130 120 105 t 
031230 103 126 104 ( 
031233 040 122 105 f 
031236 103 105 171 { 
031241 126 104 040 t 
031244 122 105 103 { 
031247 105 171 126 l 
031252 104 200 ( 

2286 031254 040 042 117 sASCIZ  ? **OR” eo. Oe ““AND'' @ERRORS TESTNO? { 
031257 122 042 040 { 
031262 040 040 040 i 
031265 042 101 116 { 
031270 104 042 040 { 
031273 040 040 042 { 
031276 117 12 042 { 
031301 040 04 040 ( 
031304 040 042 101 i 
031307 116 104 042 { 
031312 040 040 043 { 
931315 105 122 122 ( 
031320 117 122 123 ( 
031323 040 124 105 { 
031326 123 124 116 { 
031331 117 000 { 

2287 031333 101 104 104 DH25: -ASCIZ 2ADDRUSED BITDIFF TESTNO ERRORPC? ( 
031336 122 125 123 | 
031341 105 104 040 ( 
031344 040 102 111 | 
031347 124 104 111 { 
031352 1 106 040 { 
031355 124 105 123 { 
031360 124 116 117 I 
031363 040 040 105 | 
031366 122 122 117 | 
031371 122 120 103 | 
031374 000 | 

2288 031375 101 104 104 DH2?: ASCIZ 2ADDRUSED TESTNO ERRORPC? | 
031400 122 125 123 | 
031403 105 104 040 
031406 040 124 105 
031411 123 124 116 
031414 117 040 040 
031417 105 122 122 
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( 
FRROR MESSAGES AND DATA TABLES P SEQ 0170 ‘ 
031422 117 122 120 ( 
031495 103 000 ; 
2289 031427 124 105 123 Dx30: eASCIZ 2TESTNO ERRORPC? { 
031432 1246 146 117 : 
031435 G40 040 105 ( 
031440 122 122 417 { 
031403 159 199 103 t 
031446 —«-000 : { 
2290 031447 122 105 115. DH34:  ASCIZ REMOVED MISSING TESTNO ERRORPC? ( 
031452 117 126 105 ( 
031455 104 040 115 ( 
031460 111 123 123 { 
031463 111 116 107 [ 
031466 3=—sG40 124 105 ( 
081471 123 154 116 ( 
031474 117, 060s ( 
031477 105 122 122 ( 
031502 117 159 130 { 
031505 103-000 { 
2291 031507 114 117 127 DxH35: -ASCIZ ?LOWEST HIGHEST TESTNO ERRORPC? { 
031512 105 123 134 ( 
031515 060 040 116 { 
031520 111 107 116 
031523 105 123 124 
031526 «040 134 705 
031531 123 154 116 r 
031534 117, 040—Ss«KO 
031537 105 122 122 
031542 117 155 150 
031545 103 000 
2292 031547 126 105 123 DH36:  .ASCIZ 27ESTNO ERRORPC UNIBUS ADDRESS OF MAP REGISTER UNDER TEST? 
031552 124 116 117 | 
031555 040 060 105 
031560 122 122 117 
031563 155 150 103 
031566 =» 040 195 116 
031571 111 102 125 
031574 123 040 101 
031577 104 1(4 122 
031602 105 138 15% 
031605 040 117 106 
031610 040 115 101 | 
021613 120 040 122 
031616 105 107 774 | 
031621 123 124 105 
031624 132040 125 
021697 116 104 105 
031632 122 040 124 | 
031635 105 123 154 
031640 ~—-000 
2293 031641 103 117 116 DHS0: eASCI] ?PCONDITN CONDI TN?<CRLF > | 
031644 104 111 126 | 
031647 116 040 103 
031652 11? 116 104 
031655 117 126 11¢ 
031660 200 . 
2294 031661 105 130 120 ASCI1Z EXPECTD RECELYD TESTNO ERRORPC? 
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( 
FRROR MESSAGES AND DATA TABLES SEQ 01171 ‘ 
031664 105 103 124 e 
31667 104 040 122 t 
031672 105 103 105 e 
031675 111 126 104 £ 
031700 040 124 105 t 
031703 123 124 116 £ 
031706 117 040 040 t 
031711 105 122 122 t 
031714 117 122 120 f 
031717 103 000 é 
2295 031721 103 117 122 DH4): ASCII «2CORRECT ADDRESS?<CRLF > f 
031724 122 105 103 f 
031727 124 040 101 E 
031732 104 104 122 f 
031735 105 123 123 f 
031740 200 t 
2296 031741 101 104 104 -ASCIZ ADDRESS FETCHED TESTNO ERRGRPY? t 
031744 122 105 123 t 
031747 123 0 106 t 
031752 105 124 103 f 
031755 110 105 104 A 
031760 040 124 105 t 
031763 123 124 116 t 
031766 117 040 040 t 
031771 105 122 122 E 
031774 117 122 120 { 
031777 103 900 { 
2297 032001 103 117 122 DHé4e: ASCII CORRECT EXPECTD RECEIVD?<CRLF> { 
032004 122 105 103 { 
032007 124 040 105 { 
032012 130 120 105 { 
032015 103 124 104 { 
032020 040 122 105 { 
032023 103 105 111 { 
032026 126 104 200 
2298 032031 101 104 104 -A4SCIZ ADDRESS DATA FROM UB TESTNO ERRORPC? 
0320 122 105 12 


34 ! 3 
032037 123 040 104 
32045 040 040 040 


032050 040 106 122 
03205 $ 117 115 040 
032056 125 102 040 
032061 124 105 123 
032064 124 176 117 
032067 049 040 105 
032072 122 122 117 
032075 122 120 103 
032100 000 
2299 032101 122 105 107 DH201: .ASCIZ 2REGADRS TESTNO ERRORPC? 

032104 101 104 122 
032107 123 040 124 
032112 105 123 104 
032115 116 117 040 
032120 040 105 122 
032128 122 117 122 
032126 120 103 060 





I 9 
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ERROR MESSAGES AND DATA TABLES SFO 0112 | 





2300 032131 122 105 707 De20e: .ASCI]Z 7REGADRS DATAREC TESTNO ERRORPC? 
039184 103 104 132 
035137 123040 104 
032142 101 124 107 
032145 122 105 103 
032150 040 134 105 | 
0302153 123 134 116 
032156 117, 040—Ss«400 
032161 105 122 122 | 
032164 17—«959 130 
039167, —«108—St—té«< 
2301 032171 115 101 120 DH203: .4SCI1] 2MAPREG MAPREG?I «CRLF > 
039174 122 105 107 
039177, 040si(iHC(té‘zS 
032202 101 ‘3 ic Soe 
632205 105 107-200 
2302 032210 124 105 123 eASCIZ 2TESTING DUALED TESTNO ERRORPC? 
032918 «1236 111 116 
03216 107 040 106 
032221 125 101 114 
032294 105 106 040 
032997 0 124 105 
032232 123 134 116 
032235 1? 6 060 
032940 105 122 122 
039943 2S o112,—ti<‘<‘«XCzTSD 130 
032246 103 000 
2303 032250 122 105 107 DH204: .ASCIZ PREGADRS PATTERN EXKPECTD RECEIVD TESTNO ERRORPC? 
032253 101 1 122 
032256 «= 123”—St—t«C 150 
032261 101 124 124 
032364 105 192 116 
032967, «040—Stté«é«‘202028S 130 
032972 120 105 108 
032275 154 106 040 
300 192 105 103 
032303 «= s«105 111 126 
032306 106 040 154 
032311 105 123 134 
032314 116 117 040 
032317 «(O40 105 122 
032322 122 17,159 
039325 156 103 000 
2304 0323350 105 130 120 DH205: .ASCIZ 2ZEKPECTD RECEIVD ADDRSLOAD TESTNO ERRORPC? 
032333 105 103 134 
035336 106 0460 122 
032341 105 103 105 
032344 111 126 104 
35347 040 101 104 
032352 104 122 123 
032355 114 117-101 
032360 104 040 126 
032363 105 123 154 
032366 16 117,040 
032371 040 105 132 
032374 122 7 =. WS 
030377 150 103 ~—-000 
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ERROR MESSAGES AND DATA TABLES SEQ 9113 


2305 032402 101 104 106 DH206: .ASCI] ?2ADDRESS ADDRESS?<CALF > 
032405 12 105 123 
932410 12 040 101 
032413 104 104 122 
032416 1905 123 123 
032421 200 
2306 032422 105 130 120 eASCIZ PEMPECTD RECEIVD TESTNO ERRORPC? 
032425 105 103 124 
324 30 1046 040 122 ‘ 
032433 105 103 105 f 
032436 137 126 104 A 
032441 040 124 105 f 
032444 123 124 116 fl 
032447 117 040 040 f 
032452 105 122 122 f 
032455 117 122 120 f 
032460 103 000 f 
23507 032462 122 105 107 DH207: .ASCII ?7REGISTR EXPECTD RECEIVD?<CRLF> f 
032465 111 123 124 fl 
032470 122 040 105 f 
032473 130 120 105 uJ 
032476 103 124 104 
032501 040 122 105 ‘ 
032504 103 105 111 5] 
032507 126 104 200 ’ 
2308 032512 101 104 104 -ASCIZ ?ADDPESS DATA DATA TESTNO ERRORPC? f 
032515 122 105 123 f 
032520 123 040 040 f 
032523 104 107 124 ‘ 
032526 101 040 040 | 
032531 04 040 104 f 
2534 101 124 101 ‘ 
032537 040 040 040 i] 
032542 124 105 123 f 
032545 124 116 117 ' 
032550 040 040 105 f 
032553 122 122 117 ‘ 
032556 122 120 103 f 
032561 000 ' 
2309 ‘ 
i] 
} 
i] 
} 
/ 
| 
i] 
f 
f 
f 
| 
| 
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2311 


SEQ 0114 


231 .EVEN 
$318 032562 001270 001266 001264 ODT’: WORD PCPUER, CPUEXP, TESTNO,BADPC ,0 
0325706 001300 é 
2314 032574 001270 001264 001300 Die: «WORD PCPUER,TESTNO,BADPC ,0 
— 032602 000000 
2715 032606 001156 001172 001264 ODT4: . WORD SREGO.STMPO, TESTNO, SERRPC 0 
032612 001114 000000 
2316 032616 001310 001312 0013514 DTS: . WORD PMMRO ,PMMR 1, PMMR2, TESTNO,BADPC ,0 
0 001264 001300 000000 
2317 032632 01230 001226 001256 DTé: . WORD ADDROR ,ADRAND ,ERRCNT, TESTNO, SERRPC 0 
93 001264 001114 000000 
2318 03. 001230 001226 001234 DT10: WORD ADDROR , ADRAND , DATAOR, DATAND ,ERSRCNT, TESTNO, SERRPC 0 
32654 001232 001256 001264 
32662 001114 000000 
2319 032666 001162 001156 001264 DT12: . WORD SREG2. SREGO, TESTNO, SERRPC 0 
032674 001114 000000 
2320 032700 001164 001160 001264 DT13: . WORD $REG3,$REG1.TESTNO, SERRPC 0 
032706 001114 000000 
2321 032712 001230 001226 001234 DT14: .WORD ADDROR,ADRAND,DATAOR,DATAND,£ °RCNT,TESTNO,O 
032720 001232 001256 001264 


0 
2322 032730 001230 001226 001240 DT15: .WORD ADDROR,ADRAND,PATTOR,PATAND,DATAOR DATAND ,ERRCONT,TESTNO,O 
022736 001236 001234 001232 


0 
2323 032752 001156 001264 001114 DT17: .WORD $REGO,TESTNO,SERRPC,0 
32760 000000 
2324 032762 bh os 001264 001114 DT20: .WORD $REG1,TESTNO,SERRPC,0 


03 
2325 032772 0012460 001236 001234 DI23: .wWwORD PATTOR,PATAND ,DATAOR,DATAND ,ERRCNT,TESTNO,O 
033000 001232 001256 001264 


033006 
2326 Otenie 001166 001156 001264 DT25: .WwORD  $REG4,$REGO,TESTNO,SERAPC ,0 
2327 033022 001160 001264 001114 DT27: .WORD $REGi,TESTNO,SERRPC 0 
033030 000000 
2328 033036 001264 001114 000000 DIT30: .WORD TESTNO,SERRPC ,0 


2329 033040 001256 001260 001264 DIT34: -WORD ERRCNT,CNTR,TESTNO,SERRPC 0 
03 001114 000000 

2330 033052 001242 001244 001264 DT35: -WORD LOWEST, HIGEST,TESTNO, SERRPC ,0 
03 001114 000000 

2331 0 001264 001114 001156 DT36: -WORD  TESTNO,SERRPC ,$REGO,0 


000000 
2332 033074 001230 001226 001234 DIT37: .WORD ADDROR,ADRAND ,DATAOR,DATAND ,ERRCNT.TESTNO,O 
033102 001232 001256 001264 


0 
2333 033112 001266 001270 001264 DT40: -WORD CPUEXP,PCPUER,TESTNO, SERRPC ,0 


033120 001114 000000 

2334 033124 001162 001160 001264 DI41: .WORD $REG2,$REG1,TESTNO, SERRPC,0 
033132 001114 000000 

2335 033136 001160 001164 001162 D142: .WORD $REG1,$REG3,$REG2,TESTNO, SERRPC ,O 
033144 001264 001114 000000 

2336 033152 001156 001264 001114 DIT201: .WORD $REGO,TESTNO,SERRPC ,0 
033160 000000 


2337 033162 
033170 
233€ 033174 


urs 001264 DT202: .WORD $REGO,$TMPO,TESTNO,SERRPC .0 
001160 001264 DT203: .WORD $REGO,$REG1,TESTNO,SERRPC ,C 


8ss 
ad and od 
~~ = 
we 
ARO 
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ERROR MESSAGES AND DATA TABLES SEQ Q115 $ 
< 
033202 007114 000000 C 
2339 033206 001156 001162 001166 DT204: .WORD S$REGO,$REG2,S$REG4,S$REG3,TESTNO, SERRPC 0 F 
033214 001164 001264 001114 F 
033222 000000 F 
2340 033226 001160 001156 001162 DT205: .wWORD S$REG1.SREGO,SREG2,TESTNO,SERRPC 0 F 
033232 001264 001114 000000 F 
2341 0332460 001156 001164 001264 DT206: .WORD $REGO,$REG3,TESTNO,SERRPC,0 F 
033246 001114 000000 
2342 033252 001156 001162 001164 DT207: .WORD S$REGO,S$REG2,$REG3,TESTNO, SERRPC,0 
033260 001264 001114 000000 ‘ 
2343 F 
2344 F 
2345 033266 000 000 000 DFI: -BYTE 0,0,0.0 F 
033277 000 F 
2346 033272 000 000 000 DFe: -BYTE 0.0.0 . 
2347 033275 000 002 000 DFS: -BYTE 0,2,0,0.0.0 F 
033 900 000 000 F 
2348 033303 000 000 000 ODFS5: -BYTE 0,0,0.0.0 F 
033 000 000 F 
2349 033310 000 000 007 DFé: -BYTE 0,0,1.0.0 F 
033313 000 000 F 
2350 033315 000 000 000 DFIO: -BYTE 0,0.0.0,1.0.0 F 
033320 000 001 000 F 
033323 000 F 
2351 033324 0900 000 000 DFi2: -BYTE 0,0,0.0 F 
033327 000 F 
2352 033330 000 000 000 DFI4: -BYTE 0,0.0.0.1.0 F 
033333 000 001 000 f 
2353 033336 000 000 000 DFI5: -BYTE 0,0,0,0.0,0.1.0 f 
033341 000 000 000 f 
033344 001 000 ‘ 
2354 033346 000 000 000 DFI7: -BYTE 0.0.0 5 
2355 033351 000 000 000 DF23: -BYTE 0,0,0,0,1.0 5 
033354 000 001 000 F 
2356 033357 003 004 000 DF25: -BYTE 3.4.0.0 5 
033362 000 5 
2357 033363 003 000 000 DF27: -BYTE 3.0.0 f 
2358 033 000 000 DF 30: -BYTE 0,0 f 
2359 033370 000 000 000 DF34: -BYTE 0,0,0.0 f 
033373 000 5 
2360 033374 004 004 000 DF35: -BYTE 4,4,0.0 | 
033377 000 : 
2361 0334 000 000 003 DF 36: -BYTE 0Q,0,3 : 
2362 033403 000 000 000 DF3?7: -BYTE 0,0.0,0,1.0 
03 000 001 000 
2363 033411 000 000 000 DF4O: -BYTE 0,0,0.,0 
033414 000 
2364 033415 000 000 000 DF41: -BYTE 0,0,0.0 
033420 000 
2365 033421 003 000 000 DF42: -BYTE 3,0.0.0.0 
033424 900 000 
2366 033426 000 000 000 DF201: .BYTE 0,0,0 
2367 Ose es 000 000 000 DF202: .BYTE 0,0.0.,0 


3434 000 
2368 033435 000 000 000 DF203: .BYTE 0,0,0.0 
033440 000 
2369 033441 DF204: .BYTE 0,0,0,0,0,0 


S 
8 
8 
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033444 
2370 032447 
033452 
2371 Beare} 
2372 033460 
033463 


> 
“ 


4 


MACRO M1111 20=SEP=79 11:20 PAGE 64-2 
TABL 


88 8888 2c 


000 

003 pF 205: 
000 DF 206: 
000 DF 207: 


0,0.3.0.0 
0.0.0.0 
0.0.0.0.0 


SEQ 0116 


( 
S 
‘ 
§ 
S 
S 
S 
S 
S 
S 
S 
S 
s 
S 
s 
g 
: 
§ 
s 
‘ 
g 
g 
g 
< 
< 
< 
< 
< 
é 
< 
< 
< 
< 
s 
< 
F 
‘ 
< 


PREMIERE MERE MIME RIERIERI MIR 
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SYMBOL TABLE SEQ 0117 . 
; 4 
SE = 000000 BITO1 = 000002 DF30 ©: 033366 D730 «=: 033032 m7 022303 § 
ACDW1 = 000000 BITO2 = 000004 DF34 033370 D134 03304 EREXIT 021002 § 
ACDW2 = 000000 BITO3 = 000010 DF35 = 0033374 D735 =: 033052 ERRCNT 001256 5 
ACPUOP= 000000 B1T04 = 000020 DF36 © 033400 D736 «=: 033064 ERROR = 104 § 
ADDROR 001230 BITOS = 000040 DF37 «033403 D137, 033074 ERRVEC= 000004 S 
ADDWO = 000000 BIT06 = 000100 DF4O «=: 033411 DTS 032604 ERTYPE 001736 S 
1 = 000000 BITO7 = 000200 DF41 033415 D140 ©: 033112 ER200 001656 § 
ADDW10= 000000 BITO8 = 000400 DF42 033421 D141 = 033124 FLAG 001262 S 
ADDW11= 000000 BITO9 = 001000 DF5 033303 D142 033136 HIADRS= 177742 S 
ADDW12= 000000 BIT] = DF6 033310 DTS 032616 HIGEST 001244 5 
ADDW13= 000000 BIT10 = 002000 DH1 030034 DT6 032632 HITMIS= 177752 § 
ADDW14= 000000 BIT11 = DH10 030460 DUALAD 004342 HRE GL 1252 5 
ADDW15= 000000 BIT12 = 010000 DH12 030610 EMTVEC= 000030 HREGU 001254 c 
ADDW2 = 000000 BIT13 = 020000 DH14 030666 Mm 027554 HT = 1 5 
ADDW3 = 000000 BIT14 = DH15 «031005 EM? 022365 IOTVEC= 000020 1 
ADDW4 = 000000 BIT15 = 100000 DH17 «031164 EM11 022456 KDPARO= 172360 
ADDWS = 000000 BIT2 = 030100 EM12 022550 KDPARI= 172362 1 
ADDW6 = 000000 BIT3 = 000010 DH201 032107 EM13. 022636 KDPAR2= 172364 1 
ADDW? = 000000 BIT4 = 000020 DH202 032131 EM14 022730 KDPAR3= 172366 
ADDWB = 000000 BITS = 000040 DH203 032171 EM15 023023 KDPAR4= 172370 1 
ADDW9 = 000000 BIT6 = 000100 DH204 032250 EM16 = 023127 KDPARS= 172372 
ADEVCT= 000000 BIT? = 000200 DH205 032330 EM17 023232 KDPAR6= 172374 
ADEVM = 000000 BIT8 = DH206 032402 EM2 021636 KDPAR7= 172376 
ADRAND 001226 BIT9 = 001000 DH207 032462 EM20 = 023354 KDPDRO= 172320 
AENV = 000000 BPTVEC= 000014 DH23 = 031214 EM201 027327 KDPDR1= 172322 
AENVM = 000000 CACHVE= 000114 DH25 §=—s-« 031333 EM202 027403 KDPDR2= 172324 
AFATAL= 000000 CLRMAP 004120 DH27 031375 EM203 027456 KDPDR3= 172326 
AMADR1= 000000 CNTR 001260 DH3 030134 EM204 027551 KDPDR4= 172330 
AMADR2= 000000 CONTRL= 177746 DH30 = 031427 EM205 027631 KDPDRS= 172332 
AMADR3= 000000 004416 DH34 = 031447 027700 KDPDR6= 172334 
AMADR4= 000000 CPFLAG 004564 DH35 =: 031507 EM207 027762 KDPDR7= 172336 
AMAMS1= 000000 R DH36 = 031547 EM21 023502 KERSTK= 001100 
AMAMS2= 000000 FPUERR= 177766 DH40 = 031641 EM22 02 364 KIPARO= 172340 
AMAMS 3= 000000 CPUEXP 001266 DH41 = 031721 EM23 024012 KIPARI= 172342 
AMAMS4= 000000 CR = 000015 DH42 =: 032001 EM24 024106 KIPAR2= 172344 
AMSGAD= 000000 CRLF = 0002 DHS 030264 EM25 024206 KIPAR3= 172346 
AMSGLG= 000000 DATA 001324 DH6 030370 EM26 = 024313 KIPAR4= 172350 
AMSGTY= 000000 DATAND 001232 DISPLA 001152 M3 021705 KIPARS= 172352 
AMTYP1= 000000 DATAOR 001234 032562 EM30 024434 KIPAR6= 172354 
AMTYP2= 000000 DF 1 033266 DT10 32646 EM31 024610 KIPAR7= 172356 
AMTYP3= 000000 DF10 033315 DT12 32666 2 024702 —, KIPDRO= 172300 
AMTYP4= 000000 DFI2 © 033324 DT13. 032700 EM33 024754 KIPDR1= 172302 
APASS = 000000 OF14 033330 DT14 032712 EM35 = 025166 KIPDR2= 172304 
APRIOR= 000000 DF15 033336 D115 032730 EM36 «=: 025736 KIPDR3= 172306 
APTCSU= 000040 DF17 033346 D117, «032752 EM37 026033 KIPDR4= 172310 
APTENV= 000001 DF 2 033272 pT2 032574 EMG 022006 KIPDRS= 172312 
APTSIZ= 000200 DF201 033426 DT20 =: 032762 EM40 «026 136 KIPDR6= 172314 
APT 000100 DF202 033431 DT201 033152 EM41 026231 KIPDR7= 172316 
ASWREG= 000000 DF203 033435 DT202 033162 EM42 = 026313 KSP  =%000006 
ATESTN= 000000 DF204 033441 DT203 033174 EM43 026406 F = 00007 
AUNIT = 000000 DF205 033447 DT204 033206 EM45 02647 LOADRS= 177740 
AUSWR = 000000 DF206 033454 DT205 033224 EM46 ©: 026626 LOOP 010332 
AVECT1= 000000 DF 207 60 D7206 033240 EM47 026750 LOWEST 001242 
AVECT2= 000000 DF23 = 033351 DT207 033252 EMS 022115 LREGL 001246 
BADPC 001300 DF25 = 033357 D123. 032772 EM50 ¢3 LREGU 001250 
BITO = 000001 DF27 «0033363 DT25 «033010 EM52 =: 027270 MAINT = 177750 
BITOO = 000001 OF 3 033275 DT27, «033022 E M6, 022228 MAPHO = 170202 





B 10 
CKKUAAO 11/446 UB] MAP MACRO M1111) 20-SEP-79 11:20 PAGE 64-4 


SYMBOL TABLE SEQ 0118 
MAPHOO= 170202 MAPL2 = 170210 PSW = 177776 SSP =%000006 TST20 013046 
MAPHO1= 170206 MAPL20= 170300 PWRMSG 003670 STACK = 001100 TST21 013420 
MAPHO2= 170212 MAPL21= 170304 PWRVEC= 000024 START 010000 TST22 013614 
MAPHOS= 170216 MAPL22= 170310 RELC22 012166 STKLMT= 177774 TST25 014074 
MAPHO4= 170222 MAPL23= 170314 RESREG= 104414 SUPSTK= 000700 TST24 014206 
MAPHOS= 170226 MAPL24= 170320 RESVEC= 000010 SwWR 001150 TST25 «015114 
= 170232 MAPL25= 170324 RETRY 001320 SwO. = 000001 TST26 015450 
MAPHO7= 170236 MAPL26= 170330 RSIZE 001316 SswOO = 000001 TST27 =©015602 
MAPH] = 170206 MAPL27= 170334 Ri0 =%000000 sw01 = 000002 TST3 01 
MAPH10= 170242 MAPL3 = 170214 R11 =%000001 SwO2 = 000004 TST30 §=©016516 
MAPH11= 170246 MAPL30= 170340 R12 =%000002 swO3 = 000010 TST31 §=016774 
MAPH12= 17025 MAPL31= 170344 R13 =%000003 Sw04 = 000020 TST32 ©=—017324 
MAPH13= 170256 MAPL32= 170350 R14 =%000004 SwOS = 000040 TST4 010674 
MAPH14= 170262 MAPL33= 170354 R15 =%000005 SwO6 = 000100 TSTS 010764 
MAPH15= 170266 MAPL34= 170360 R6 =%000006 SwO? = 000200 TST6 011054 
MAPH16= 170272 MAPL35= 170364 =%000007 sw08 = 000400 TST7 011200 
MAPH17= 170276 MAPL36= 170370 SAVREG= 104412 SwO9 = 001000 TYPDS = 104410 
= 170212 MAPL37= 170374 OPE = 4 Swi = 000002 TYPE = 104400 
170302 MAPL4 = 170220 SDPARO= 172260 Sw10 = 002000 TYPOC = 104402 
MAPH21= 170306 MAPLS = 170224 SDPAR1= 172262 SW11 = 004000 TYPON = 104406 
MAPH22= 170312 MAPL6 = 170230 SDPAR2= 172264 SW12 = 010000 TYPOS = 104404 
= 170316 MAPL7 = 170234 SDPAR3= 172266 Sw13 = 020000 TYPVAD 002244 
MAPH24= 170320 MEMERR= 177744 SDPAR4= 172270 SW14 = 040000 UBADDR 002352 
MAPH25= 170326 MMF LAG 76 SDPARS= 172272 SwW15 = 100000 UBCOUN 004506 
MAPH26= 170332 MMRO = 177572 SDPAR6= 172274 SWw2 = 000004 015372 
MAPH27= 170336 MMR1 = 177574 SDPAR7= 172276 SW3 = = 000010 UDPARO= 177660 
MAPHS = 170216 MMR2 = 177576 SDPDRO= 172220 SW = 20 UDPAR1= 177662 
MAPH30= 170342 MMR3 = 172516 SDPDR1= 172222 SWS = UDPAR2= 1 
MAPH31= 170346 MMTRAP 004674 SDPDR2= 172224 SWw6 = 000100 UDPAR3= 177666 
MAPH32= 170352 MMVEC = 000250 SDPDR3= 172226 SW7 = UDPAR4= 177670 
MAPH33= 170356 M= 000040 SDPDR4= 172230 SWw8 = 000400 UDPARS= 177672 
MAPH34= 170362 NXTTST 001322 SDPDR5= 172232 S = 00 UDPAR6= 177674 
MAPH35= 1 OLDPC 001302 SDPDR6= 172234 SYSTID= 177764 UDPAR7= 177676 
36= 170372 OLDPS 001304 SDPDR7= 172236 TBIT = 000 UDPDRO= 177620 
MAPH37= 170376 OLDPSW 001306 SIPARO= 172240 TBITO = 104416 UDPDR1= 177622 
MAPH4 = 170222 PADRSH 001224 SIPAR1= 172242 TBITOF 004054 UDPDR2= 177624 
MAPHS = 170226 PADRSL 001222 SIPAR2= 172244 TBITR = 104420 UDPDR3= 177626 
MAPH6 = 170232 PATAND 001 SIPAR3= 172246 TBITRE 004102 UDPDR4= 177630 
MAPH7 = 170236 PATTOR 001240 SIPAR4= 172250 TBITVE= 0 UDPDR5S= 177632 
MAPLO = 1 PCONTR 001274 SIPARS= 172252 TESTNO 001264 UDPDR6= 177634 
MAPLOO= 170200 PCPUER 00127 SIPAR6= 172254 TIMEOU UDPDR7= 177636 
MAPLOI= 170204 PIRQ = 177772 SIPAR7= 172256 TIMOUT= 020 UIPARO= 177640 
MAPLO2= 170210 PIRQVE= 000240 SIPDRO= 172200 TKVEC = 000060 UIPAR1= 177642 
MAPLO3= 170214 PMAINT 001276 SIPDR1= 172202 TOFLAG 004140 UIPAR2= 177644 
= 170220 PMMRO 001310 SIPDR2= 172204 TPVEC = 000064 UIPAR3= 177646 
MAPLOS= 170224 PMMR1 001312 SIPDR3= 172206 TRAPVE= 000034 UIPAR4= 177650 
06= 170230 PMMR2 001314 SIPDR4= 172210 TRIVEC= 000014 UIPARS= 177652 
MAPLO7= 170234 PPARER 001272 SIPDR5= 172212 TST1 010422 UIPAR6= 177654 
1 = 170204 PRO = 000 SIPDR6= 172214 TST10 §=—011322 UIPAR7= 177656 
MAPL10= 170240 PR1 = 000040 SIPDR7= 172216 TST11 = 011446 UIPDRO= 177 
MAPL11= 170244 PR2 = 000100 SIZEHI= 177762 TST12 =©6011572 UIPDR1= 177602 
MAPL12= 170250 PR3 = 000140 SIZEJ 13064 TST13. 011716 PDR2= 177604 
MAPL13= 170254 PR4 = 000200 SIZELO= 177760 TST14 = 012042 UIPDR3= 177606 
MAPL14= 170260 PRS = 000240 0 = 177572 TST15 012330 UIPDR4= 177610 
MAPL15= 170264 PR6 = 000300 SR1 = 177574 TST16 =—012502 UIPDRS= 177612 
MAPL16é= 170270 PR? == 000340 SR2 = 177576 TST17, =—- 0.12734 UIPDR6= 177614 
MAPL17= 170274 PS = 17777 Sk3 = _: 172516 TST2 010506 UIPDR7= 177616 
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SYMBOL TABLE SEQ 0119 
USESTK= 000600 $DDW3 020106 $GETS2 021444 SOCTVL 004036 $TKS 901134 
USP __ =%000006 $SDDW4 020110 $HD = 000000 SOMODE 003244 $TMPO 8001172 
WRITEE 256 $DDWS 020112 $HIBTS SOVER 020452 $TMP1 001174 
ZAPTHD 0 D 020114 $SICNT 001102 $PASS 020022 STMP2 001176 
SATYC 021030 SDDW7 = =020116 $SILLUP SPASTM $TMP3 001200 
$ATY] $DDW8 020120 SITEMB 001112 AD 003656 $TMP4 =001202 
SATYS 021012 EDDw9 = 020122 $LF 001220 SPWRDN 003534 STMPS) 001204 
SATYS 021022 SDEVCT 020024 SLFLG 021247 003652 $™N = 000033 
SBASE 020072 $LOOP) 021542 T 001742 
001120 SDOAGN 027502 $SLPADR 001104 $QUES 001216 STPFLG 001147 
SBDDAT 001124 $DTBL $LPERR 001106 001154 T 001140 
SBELL O01212 021472 R1 20046 $REGO 001156 $TRAP 003472 
$CDW1 020074 SENDCT 621320 SMADR2 020052 $REG1 001160 $TRP = 000022 
$CDW2 020076 SENULL 021550 SMADR3 020056 $REG2 1 STRPAD 003512 
SCHARC 14 SENV 020034 SMADR4 0 $REGS 001164 STSTM 
SCLR.T 021462 SENVM 020035 SMAIL 020014 $SREGS 001166 STSTNM 001100 
SCMTAG SEOP 021252 $SMAMS1 020044 $REGS 001170 $TYPDS 003246 
$CM1 = SEOPCT 021312 SMAMS2 020050 $RESRE 002466 $TYPE 002524 
$CM2 = 000014 SERFLG 00 SMAMS3 020054 TRN 021540 STYPEC 2700 
SCM3 = SERMAX 001113 SMAMS4 020060 $SAVRE 002430 STYPEX 003016 
SCM = SERROR 020470 $MBADR 020002 SSAVR6 003666 $TYPOC 003044 
SCPUOP 020042 SERRPC 001114 SMFLG 021246 SSCOPE 920140 $TYPON 00 
SCRLF 001217 SERRTB 001326 $MSGAD 020030 $SETUP= 0000 $TYPOS 003020 
K 003462 SERTTL 001110 $MSGLS 020032 $STUP = 177777 $SUNIT 020026 
$DB20 003734 SESCAP 001210 SMSGTY 020014 $SVLAD 020416 SUNITM 020010 
SDDWO 1 SETABL 020034 $MTYP1 020045 $SVPC = 000204 WR 
$SODW10 020124 $FATAL 020016 SMTYP3 020055 $SWREG 020036 $VECT2 
$DDW11 020126 $FFLG 021250 SMTYP4 020061 $SWRMK= 000300 $XTSTR 020214 
$ODwW12 020130 $SFILLC 001146 SMXCNT 020466 $TBIT 021546 $$GET4= 00000 
SDDW135 020132 $SFILLS 001145 SNULL_ 001144 $TESTN 020020 $$TRP = 000002 
$SODW14 020134 $GDADR 001116 $NWTST= 600001 $TIMES 001206 SOFILL 003243 
— Roi $GDDAT 001122 SOCNT 003242 $TkKS8 001136 -$X = 020000 


- ABS. 033466 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 64784 WORDS 8 PAGE S) 
DYNAMIC MEMORY: 204 34 WORDS ( 78 PAGES 

ELAPSED TIME: 47 

CKKUAAO, CKKUAAO/NL : Foc / CRE fu SP=CKKUAAO. SML , CKKUAAQ.P 
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CKKUAAO 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
ABASE = 000000 
ACDw1 = 000000 
ACDw2 = 000000 
ACPUOP = 000000 
001230 
ADDWO = 000000 
1 = 900000 
ADDW10 = 000000 
ADDW11 = 000000 
ADDW12 = 000000 
ADDW13 = 000000 
ADDW14 = 000000 
ADDW15 = 000000 
ADDW2 = 000000 
ADDW3 = 000000 
ADDW4 = 000000 
ADDWS = 000000 
ADDW6 = 000000 
ADDW7 = 000000 
ADDW8 = 000000 
DwW9 = 000000 
ADEVCT = 000000 
ADEVM = 000000 
ADRAND 001226 
AENV = 000000 
AENVM = 000000 
AFATAL = 000000 
AMADR1 = 000000 
AMADR2 = 000000 
AMADR3 = 000000 
AMADR4 = 000000 
AMAMS1 = 000000 
AMAMS2 = 000000 
AMAMS3 = 000000 
AMAMS, = 000000 
AMSGAD = 000000 
AMSGLG = 000000 
AMSGTY = 000000 
AMTYP1 = 000000 
AMTYP2 = 000000 
AMTYP3 = 000000 
AMTYP4 = 000000 
APASS = 000000 
APRIOR = 000000 
APTCSU = 000040 
APTENV = 000001 
APTSIZ = 000200 
APTSPO = 000100 
ASWREG = 000000 
ATESIN = 


CREATED 6Y 


62-2195 


62-2195 


MACRO ON 20=SEP=79 AT 17:24 
REFERENCES 


62-2195 
62-2195 


#62-2198 


#62-2198 
62-2195 
62-2195 


D 10 





PAGE 1 
cree SEQ 0120 
*57=766 #57=789 #5 7=811 #5941591 8622196 64-2317 642318 
64-2332 
*57=767 #57790 = #57=812 #59-1589 862-2196 = 64-2317 64-2318 
64-2332 
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CKKUAAO CREATED BY MACRO ON 20=SEP=79 AT 11:24 PAGE 2 
SYMBOL CROSS REFERENCE CREF SEQ 0121 
SYMBOL VALUE REFERENCES 
AUNIT = Q00000 2-2195 62-2195 
AUSWR = 000000 62-2195 62-2195 i 
AVECT? = 000000 62-2195 62-2195 
AVECT2 = 000000 62-2195 62-219 
001 300 #52-226 #5 7-87 #57=910 64-2313 64-2314 64-2316 
BITO = 000001 #51=22 58-129 
BITO0O0 == 000001 #51=222 51-222 
BITO} = 000002 #51=222 51-222 
BITO2 = 000004 #51-222 51-222 
BIT03 = 000019 #51=-222 51-222 
BITO4 == 000020 #51=222 51-222 
BITOS = 0000460 #51=22e 51-222 
BITO06 = 000100 #51=222 51-222 
BITO7 = 000200 #51-222 51-222 
BITO&8 = 000400 #51=222 51-222 62-2196 
BITO9 == 001000 #51=222 51-222 62-2196 62-2197 
BIT = 000002 #51=222 
BIT10 = 002000 #51=-222 62-2197 
BIT11 = 000 #51=222 58-1313 62-2196 
BIT12 = 010000 #51-222 62-2199 
BI1T13 = 020000 #51-222 62-2197 
BIT14 = 040000 #51=222 
BIT15 = 100000 #51=222 
BIT2 = 000004 #51=222 
BIT3 = 000010 #51=-222 
BITS = 000020 #51=-222 56-672 58-1294 58-1307 | 
BITS = 000040 #51=222 58-1440 58-1552 59-1614 59-1716 
BIT6 = 000100 #51=-222 | 
BIT7 = 000200 #51=222 
BIT8 = 000400 #51-222 | 
BITS = 001000 #51-222 53-498 
BPTVEC = 000014 #51=222 
CACHVE = 000114 #51=222 } 
CLRMAP 004120 #57-710 58-1188 58-1 34¢ 58-1505 
CNTR 001260 #52-226 64-2329 
CONTRL = 177746 #51-222 
COUNT 004416 #57-810 58-1224 58-1237 58-1251 58-1264 
CPFLAG 004564 #57-865 *57-886 57-947 *62-2197 
CPUER 004562 457-864 57-941 57-989 
CPUERR = 177766 #51=222 57-736 57-737 57-876 *57-885 57-950 62-2197 i 
CPUE XP 001266 #5 2-226 57-738 57-878 57-380 #57-943 *58-1308 +*58-1331 *58-1347 *58-1385 
*58-1402 *58-1420 *58-1434 #581463 #59-1615  *59-1633 9 #59=1726 = 859-1735 = #5 9=1761 
*59-1811 #59-1829 = 59-1925 = #59--1936 = #5 9-196 2 64-2313 64-2333 
CR = 000015 #51-222 53-642 53-642 
CRLF = 000200 #51=222 53-642 53-642 57-936 57-936 63-2216 63-2218 63-2220 63-2222 
63-2227 63-2229 63-2233 63°°2234 63-2237 63-2238 63-2239 63-2240 63-2241 
63-2242 63-2250 63-2252 63-2254 63-2256 63-2270 63-2272 65-2274 63-2276 
orsely 63-2280 63-2282 63-2285 63-2293 63-2295 63-2297 63-2301 63-2305 
DATA 001324 13 sag tea. *59-1750 *59-1757 «59-1758 *559-1759 59-1927 £59-1951 259-1958 
s — 7 - 6 
DAT AND 001232 #5 2-226 *57-769 #57-792 #57-814 #57-839 #59-1590 = *62= 2196 64-2318 64-232) 
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CKK UAAQ CREATED BY MACRO ON 20=SEP=79 AT 11:26 PAGE 3 
SYMBOL CROSS REFERENCE CREF SEQ 0122 
SYMBOL «=VALUE REFERENCES 

64-2322 64-2325 64-2332 ic, 
DAT AOR 001234 #52=226 *57-768 #57=791 #57=813 #57=-838 #591592 = #6.2=2196 64-2318 64-2521 

64-2322 64-2325 64-2332 


DF 033266 §3=+23) 764-2365 
oF 10 033315 53-258 53-265 #64-2350 
DF Ie 033324 53=272 53-279 #64-2351 
DF 14 033330 53-286 #64-2352 
DF 1S 033336 53-293 53-300 56-2353 
DF 17 033346 #64-2354 
DF 2 033272 53-237 164-2346 
DF 201 033426 53-425 #64-2366 
DF 20, 033431 53-431 #64-2367 
DF 20 033435 53-438 #64-2368 
DF 206 033441 5 3-444 #64-2369 
DF 205 033447 53-450 464-2370 
DF 206 033454 53-457 #64-2371 
DF 207 033460 464-2372 
DF 23 033351 53-321 964-2355 
DF 25 033357 53-307 #64-2356 
DF 27 033363 #64-2357 
DF 3 033275 #64-2347 7 
DF 30 033366 53-314 53-327 53-335 #64-2358 
DF 34 033370 #64-2359 
DF 35 033374 53-349 #64-2360 
DF 36 033400 53-355 #64-2361 
DF 37 033403 53-362 53-415 464-2362 
DF4O 033411 53-369 53-391 464-2363 
DF 41 033415 53-376 53-399 #64-2 364 
DF42 033421 53-383 53-407 #64-2365 
DFS 033303 53-244 #64-2348 
DF6 033310 53-251 464-2349 
DH1 030034 53-229 #63-2268 
DH10 60 53-255 53-262 463-2276 
DH12 030610 53-269 53-276 #63-2278 
DH? 0 $ 3-283 463-2280 
DH15 031005 53-290 53-297 #63-2282 
DH17 031164 963-2284 
030100 53-235 #63-2269 
DH201 32101 53-423 463-2299 
DH202 032131 53-429 #63-2300 
DH203 032171 53-435 #63-2301 
DH204 32250 53-442 #63-2303 
DH205 032330 53-448 463-2304 
032402 53-454 463-2305 
DH207 032462 463-2307 
DH23 031214 53-318 53-359 §3-412 #6 3=2285 
DH25 031333 53-305 #63-2287 
DH27 031375 #63-2288 
DH3 030134 #63-2270 
DH30 0314 §3-312 § 3-325 53-333 M6 7=2289 
0314 3-2290 4 
0315 3-347 463-2291 
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CKKUAAO CREATED BY MACRO ON 20=SEP=79 AT 17:26 PAGE 4 

SYMBOL CROSS REFERENCE CREF SEQ 0123 
SYMBOL VALUE REFERENCES . 

036 031547 53-353 #63=2292 






DHGO 031641 53-366 = 53-388 = 63-2293 
DMG | 031721 53-373 = § 3-396 «= #6 3-2 2985 
DH42 032001 53-380 3-404 = #03=2297 
OHS 030264 53-2641 #6 3=2272 
30370 53-248 863-2274 
DISPLA 00115 452-226 «= §B=1306 «= SB=1433 591809 62=2196 = 6 2=2197 
D 032562 53-230 —-#64=23138 
D110 032646 53-257 53-264 #64=2318 
DT12 032666 53-271 #42319 
D113 0327 53-278  —-#64-2320 
D114 032712 53-285 #642321 *, 
DT15 032730 53-292 53-299 #H4=2322 
pri? 032752 #64-2323 
DT2 032574 53-236 —-#64-2314 


DT201 033152 53-424 64-2336 
DT202 033162 53-430 #64-2337 


DT205 033224 53-449 #64-2340 
DT 206 033240 53-456 #64-234) 


D123 032772 53-320 64-2325 
D125 033010 53-306 «#642326 


D130 Retorh 53-313 53-326 53-334 #64~-2328 
D135 033052 53-348 #64-2330 

D136 033064 53-354 #64-2331 

D137 033074 53-361 53-414 464-2332 


DT40 033112 53-568 53-390 #64-2333 


am 24 £4 414 144 414 44 144 144 14 14 14 144 1444444 





D141 033124 53-375 53-398 464-2334 
D142 033136 53-382 53-406 464-2335 
DT5 032616 53-243 #64-2316 

DI6 032632 53-250 464-2317 

DUAL AD 004 342 #57-787 58-1196 58-1521 
EMTVEC = 000030 #51=222 57-935 57-935 
eM) 021554 53-228 #63-2202 

EM10 22365 53-254 #63-2209 

—M11 022456 53-261 463-2210 

FM12 022550 53-268 #63-2211 

—M13 36 53-275 #63-2212 

EM14 022730 53-282 463-2213 

EM15 023023 53-289 963-2214 

EM16 023127 53-296 #63-2215 

EM17 023232 #63-2216 

EM2 021636 53-234 #63=2203 

EM20 023354 #63-2218 * 

EM201 027327 53-422 462-2260 


027403 #63-2261 


CROSS REFERENCE 
VALUE 


CREATED BY MACRO ON 20=SEP=79 AT 17:24 


REFERENCES 
53-434 


= 
BAMA BR AMAA 


4 


#51-222 


#63=2265 


#63=2226 


#63-2229 


63-2245 


#63-2246 
63-2247 
#63-2248 


#63-2250 
#63-2252 
463-2254 
463-2206 


453-2259 
#63-2207 


#62-2197 


64-2332 


*57-941 
62-2197 
53-508 


*58-1455 


*58-1486 
*58-1488 
53-642 
57-935 


57-770 

58-1205 
*62-2196 
*57=942 


53-511 


57-936 
58-1468 


PAGE 5 
CREF 


57-793 
58-1224 
*62-2197 


*57-963 


62-2199 
58-1475 


H 10 


57-817 
58-1237 
64-2317 


+5 7-989 


62-2199 
58-1525 


57-84 


58-1534 


57-973 
58-1264 
64-2321 


62-2196 


53-645 
53-645 


64-2330 


57-1002 
58-1380 
64-2322 


62-2196 


53-645 
53-646 


58-1033 
58-1536 
64-2525 


62-2196 


53-645 
53-646 


SEQ 0124 





MMA MRIAIA ee 








KK AAD CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
KDPARQO = 172360 
KDPAR1 = 172362 
KDPAR2 = 172364 
KDPAR3 = 172366 
KDPARG = 172370 
KDPARS = 172372 
KDPAR6 = 172374 
KDPAR7 = 172376 
KDPDRO = 172320 
KDPDR1 = 172322 
KDPDR2 = 172324 
KDPDR3 = 172326 
KDPDRG = 172330 
KDPDRS = 172332 
KDPDR6 == 172334 
KDPDR7 = 172336 
KERSTK = 001100 
KIPARO = 172340 
KIPAR1 = 172342 
KIPAR2 = 172344 
KIPARS = 172366 
KIPARG = 172350 
KIPARS = 172352 
K]PAR6 = 172356 
KIPAR? = 172356 
KIPDRO = 172300 
KIPDR1 = 172302 
KIPDR2 = 172304 
KIPDR3 = 172306 
KIPDR4 = 172310 
KIPDRS = 172312 
KIPTR6 = 172314 
K]PDR7Z = 172316 
KSP = 
LF = 12 
LOADRS = 1777640 
LOOP 010332 
LOWE ST 001242 


MACRO ON 20=SEP=79 AT 17:06 


REFERENCES 


#51-222 


59-1722 
59-1882 


59-1887 


*58-1285 
#59=-1793 


*58=-1442 


59-1867 


* 53-492 
*53-567 


58-1466 
59-1671 
59-1812 
59-1892 


PAGE 6 
CREF 


#59-1795 


*58-1449 
58-1561 
58-1361 
*58-1315 
*59-1584 
59-1686 
59-1872 


*57-873 


58-1476 


59-1897 


I 10 


58-1450 
#59-1616 


*58-1326 
59-1585 
59-1691 
59-1877 


58-1454 
*59-1721 


*58-1349 
59-1651 
59-1696 
59-1 882 


58-1511 
59-1686 
59-1862 
§9-1923 


58-1455 
59-1749 


#58-1355 
59-1656 
59-1701 
59-1887 


*57-888 


59-1616 
59-1691 
59-1867 
64-2330 


#58-1456 
#59=-1751 


58-1356 
59-1661 
#§9-1722 
59-1892 


*53-551 
53-610 


59-1651 
59-1696 
59-1872 


58-1457 
#59-1812 


58-1 360 
59-1666 


53-553 


#§7-911 


59-1656 
59-1701 
59-1877 


SEQ 0125 


ee 


1 
] 
( 
4 
{ 
4 
{ 





J 10 ] 
CKRUAAO CREATED BY MACRO ON 20=SEP=79 AT 17:26 PAGE 7 
SYMBOL CROSS REFERENCE CREF SEQ 0126 | 
SYMBOL VALUE REFERENCES 
LREGL 001246 #5 2-226 *58-1483 58-1509 59-1618 59-1651 59-1656 59-166) 59-1666 59-1671 
59-1676 59-168) 59-1686 59-169; 59-1696 59-1701 59-1718 59-1752 59-1914 
59-1852 59-1857 59-1862 59= 1867 59-1872 59-1877 59-1882 59-1887 59-1892 


LRE GU 001250 #5 2-226 #58-1485 59-1617 59-1651 59-1656 59-1661 59-1666 59-1671 59-1676 
59-168! 59-1686 59-1691 59-1696 59-1701 59-1717 59-1754 59-1755 59-1785 
59-1813 59-1852 59-1857 59-1862 59-1867 59-1872 59-1877 59-1882 59-1887 
59-1892 59-1897 59-1902 59-1918 59-1955 59-1956 





59-1897 59-1902 59-1919 59-1953 

MAINT = 177750 #51=222 

= 170202 #51=222 58-1021 58-1150 
MAPHOO = 170202 #51=222 51=222 5@-1151 $8-1237 
MAPHO1 = 170206 #51=222 51-222 
MAPHO2 = 170212 #51=222 51-222 
MAPHOS = 170216 #51=222 $1=-222 
MAPHOG = 170222 #51=222 51=222 
MAPHOS = 170226 #51-222 51-222 
MAPHO6 = 170232 #51=222 51=222 
MAPHO7 = 170236 #51=-222 §1=222 
MAPH 1 = 170206 #51=222 
MAPH10 = 170242 #51=222 
MAPH11 = 170246 #51=-222 
WPH12 = 170252 #51=222 
#4PH13 = 170256 #51=222 
MAPH14 = 170262 #51=222 
+ APHIS = 1 66 #51=222 
MAPH16 = 170272 #51=222 
MAPH17 = 170276 #51=222 58-1029 58-1237 
MAPH2 = 170212 #51=222 
MAPH20 = 170302 #51=222 58-1081 58-1162 58-1163 58-1264 
MAPH21 = 170306 #51=222 
MAPH22 = 170312 #51=-222 
MAPH23 = 170316 #51-222 
MAPH24 = 170320 #51=222 
MAPH25 = 170326 #51-222 
MAPH26 = 170332 #51=222 
MAPH27 = 170336 #51=222 
MAPH3 = 170216 #51=222 
MAPH30 = 170342 #51=222 
MAPH31 = 170346 #51=222 
MAPH32 = 170352 #51-222 
MAPH33 = 170356 #51=222 
MAPH34 = 170362 #51-222 
MAPH35 = 170366 #51=222 
MAPH36 = 170372 #51=-222 
MAPH37 = 170376 #51-222 57-712 57-969 58-1089 58-1187 58-1201 58-1264 
MAPHL = 170222 #51-222 
M4PHS = 170226 #51=222 
MAPH6 = 170232 #51-222 
MAPH7 = 170236 #51-222 
MAPLO = 170200 #51=222 57-710 57-964 57-990 ry ah 58-1198 58-1312 58-1321 5R=-7435 
MAPLOO = 170200 #51-222 51=222 #58-1113 58-1114 58-1224 
MAPLO1 = 170204 #51-222 51-222 


CKKUAAQ CREATED BY MACRO ON 20=SEP=79 aT 11:24 PAGE & 
SYMBOL CROSS REFERENCE CREF SEQ 0127 
SYMBOL ALUE REFERENCES } 
MAPLO2 = 170210 #51-222 51-222 
MAPLO3 = 1702146 #5 1-222 51-222 | 
MAP! = 170220 #5 1-222 51-222 
POS = 170224 #5 1-222 51-220 | 
MA*LO06 = 170230 #5 1-222 §1-222 | 
MAPLO? = 170236 #5 1-222 51-222 
MAPL1 = 170204 #5 1-220 
MAPL10 = 170240 #5 1-222 
MAPL11 = 170244 #51=222 
MAPL12 = 170250 #51=222 
MAPL13 = 170254 #51=222 
MAPL14 = 170260 #51-222 
MAPL1S = 176264 #5 1-222 
MAPL16 = 170270 #51=222 
MAPL17 = 170276 #51=222 57-998 58-1224 
MAPL2 = 170210 #51=222 i 
MAPL20 = 170300 #51=222 58-1051 #58-1125 58-1126 58-1251 
MAPL21 = 170304 #5 1-222 
MAPL22 = 170310 #51=-222 
MAPL23 = 170314 #5 1-222 
MAPL24 = 170320 #51-222 
MAPL25 = 170324 #51=222 
MAPL26 = 170330 #5 1-222 
MAPL27 = 1703 #51=222 
MAPL 3 = 170214 #51=222 
MAPL30 = 170340 #51-222 
MAPL31 = 170344 #51=-222 
MAPL32 = 170350 #5 1-222 
MAPL33 = 170354 #5 1-222 
MAPL34 = 170360 #51=-222 
MAPL35 = 170364 #51-222 
MAPL36 = 170370 #51-22 
MAPL37 = 170374 #51-222 58-1059 58-1251 58-1438 
MAPLG = 1709220 #5 1-22 
MAPL 5 = 170224 #51-222 
MAPL6 = 170230 #51-222 
MAPL 7 = 170234 #51=-222 
MEMERR = 177744 #51-222 
MMF LAG 004676 #57-903 *57-918 *57-949 #62-2197 
MRO = 177572 #51-222 51-222 57-913 57-917 57-944 #5 8-1293 62-2197 *62-2199 
MMR 1 = 177574 #51-222 51-222 57-914 
MMR? = 177576 #51-222 51-222 57-915 
MMR Z = 17251 #51-222 51-222 57-945 * 58-1294 58-1440 *58-1552 *59-1614 "62-2199 
MMTRAP 004674 #57-90 57-938 
C = 000250 #51-222 *57-938 «57-940 
NEXMEM = 459-1714 59-1735 59-1737 59-1936 59-1938 
NXTTST 001322 #52-226 *57-962 * 57-988 *58-1020 *58-1050 *58-1080 *58-1108 #58-1145 #5 8-1184 
*58-1223 *58-1236 *58-1250 *58-1262 *58-1345 *58-1401 *58-1432 #58-1504 #58-1551 
*59-1613 *59-1646 #59-1713 *59-1810 *59-1845 *59-191 *59-1990 *60-2097 
OL DPC 001302 #52-226 57-734 57-751 *57-765 57-775 257-788 57-798 *57=-810 57-822 
*57-835 57-845 *57-872 57-877 57-888 257-911 57-920 
OLDPS 001304 #52-226 257-735 57-750 *57-873 57-887 957-912 §7-919 





L 10 


CKKUAAO CREATED BY MACRO ON 20=SEP=79 AT 11:26 PAGE 9 

SYMBOI CROSS REFERENCE CREF SEQ 0128 

SYMBOL VALUE REFERENCES 

OL DPS 001 306 #52-226 *56-676 56-693 #57-695 

PADRSH 001226 #52=226 #5 3-606 #5 3-629 

PADRSL 091222 52-226 *53-607 53-608 *53-628 53-630 

PATAND 001236 #52-226 #57-816 #57-837 *62-2196 64-2322 64-2325 

PATTOR 001240 #52-226 #57815 *57-836 *62-2196 64-2322 64-2325 

PCONTR 001274 #52=226 ! 

PCPUFR 001270 #52-226 #57-736 57-737 57-738 *57=876 57-880 57-885 #58-1350 58-1353 
*59=1620 59-1629 = #5 9=1725 59-1733 59-1737 #*59=1816 59-1825 59-1926 59-1934 
59-1938 64-2213 64-2314 64-2333 

PIRG = 177772 #51=222 

PIRQVE = 000240 #51-222 

PMAINT 001276 #52-226 

PMARO 001310 #52=226 #57-913 64-2316 

PMMR 1 001312 52-226 #57=914 64-2316 

PMR 2 001314 #52=226 #57-915 64-2316 

PPARER 001272 #52-226 

PRO = 000000 #51=222 

PRI = 000040 #51=222 

PR2 = 000100 #51=222 

PR3 = 000140 #51=-222 

PRG = 000200 #51-222 

PRS = 000240 #51-222 

PR6 = 000300 #51222 

PR? = 340 #51222 

PS = 177776 #51-222 51-222 57-935 62-2199 

PSW = 177776 #51=222 

PWRMSG 003670 -649 #53-650 

PWRVEC = 24 #51-222 53-649 53-649 53-649 53-649 53-649 57-935 57-935 

RELC22 012166 58-1264 #58-1273 

RESREG = 104414 53-615 53-636 #5 3-645 53-653 

RESVEC = 000010 #51-222 57-935 57-935 57-935 

RETRY 001320 #52-226 *62-2196 

RSIZE 001316 #52-226 *59-1749 59-1950 

R10 =%000000 #51-222 

R11 %000001 #51-222 

R12 =%000002 #51-222 

R13 =%000003 #51-222 

R14 =%000004 #51-222 

R15 =%000005 #51-222 

R6 =%000006 #51-222 51-222 *57-935 #57-935 57-935 *60-20462 60-2042 *60-2156 *60-2156 

R7 =%000007 #51-222 51-222 

SAVREG = 104412 53-592 53-624 #53-645 53-653 

SCOPE = #51-222 7-962 57-988 58-1020 58-1050 58-1080 58-1108 58-1145 58-1184 
58-1223 58-1236 58-1250 58-1263 58-1345 58-1401 58-1432 58-1504 58-1551 
59-1613 59-1646 59-1713 59-1772 59-1845 59-1916 59-1990 60-2096 62-2199 

ARO = 172260 #51-222 

SDPAR1 = 172262 #51=222 

SDPAR2 = 172264 #51-222 

SDPAR3 = 172266 #51=222 

SDPAR4 = 172270 #51=222 

SDPARS = 172272 #51-222 

SDPAR6 = 172274 #51=222 


CKKUAAO CREATED BY 


SYMBOL CROSS REFERENCE 
SYMBOL 


nninnnnnnnnnnnnnnnnhnnnnnnne 


| 


MACRO ON 20=SEP=79 AT 17:26 oaet 10 
C 
REFERENCES 


#58-1433 


51-222 51-222 51-222 57-935 
53-649 #57-930 58-1453 


53-501 *57-932 62-2196 62-2196 
62-2197 62-2197 62-2197 62-2197 


#51-222 


62-2196 


62-2199 


62-2196 


62-2196 


62-2197 


SEQ 0129 





N 10 
(KKUAAO CREATED BY MACRO ON 20-SEP-79 AT 17:26 PAGE 11 
SYMBOL aa REFERENCE CREF 


S VALUE FERENCES 

Swi = 004000 222 

Sw12 = 910000 #51=222 

Sw13 = 020000 #51=222 

Swi4 = 040000 #51=222 

Sw15 = 100000 #51=222 

Swe = 000004 #51=222 

Sw = 000010 #51=222 

Sw = 900020 #51=222 

SWS = 000040 #51-222 

SW6 = 0.0100 #51=222 

Sw? = 000200 #51=222 53-501 

Sw8 = 000400 #51=222 

Sw9 = 001000 #51=222 62-2197 

SYSTID = 177764 #51=-222 

TBIT = 000020 #56-672 56-674 56-677 57-695 

TBITO = 104416 #5 3-646 

TBI TOF 004054 53-646 456-673 

TBITR = 104420 #5 3-647 58-1273 59-1773 62-2199 

TBITRE 004102 53-647 #56-692 

TBITVE = 000014 #51=-222 57-935 57-935 

TESTNO 001264 #52-226 *62-2197 64-2313 64-2314 64-2315 64-2316 64-2317 64-2318 
64-2320 64-2321 64-2322 64-2323 64-2324 64-2325 64-2326 64-2327 
64-2329 64-2330 64-2331 64-2332 64-2333 64-2334 64-2335 64-2336 
64-2338 64-2339 64-2340 64-2341 64-2362 

TIMEOU 004136 #57-725 57-963 

TIMOUT = 000020 #58-1307 58-1308 58-1347 58-1402 58-1434 59-1615 59-1629 59-1925 

TKVEC = 000060 #51=-222. 

TOF LAG 004140 457-727 257-749 *57-948 *62-2197 

TPVEC = 000064 #51-222 

TRAPVE = 000034 #51-222 57-935 57-935 

TRTIVEC = 000014 #51=-222 

TST1 010422 #57-962 

TST10 011322 58-1145 #58-1184 

TST11 011446 58-1184 58-1206 #58-1223 

TST12 011572 58-1223 58-1224 #58-1236 

TS113 011716 58-1236 58-1237 #58-1250 

TST146 012042 58-1250 58-1251 #58-1263 

TST15 012330 58-1263 #58-1306 

TST16 012502 #58-1345 

TST17 012734 58-1345 #58-1401 

TST2 010506 57-962 57-974 457-988 

TST20 013046 58-1401 #58-1452 

TST21 013420 58-1432 58-1465 #581504 

TST22 013614 58-1504 58-1537 #58-1551 

TST23 014074 58-1551 58-1570 #59~-1613 

TST24 014206 59-1613 #59-1646 

TST25 015114 59-164 459-1713 

TST26 015450 59-1713 #59-1809 

TST27 015602 59-1810 #59-1845 

TST3 010604 - 57-1003 458-1020 

TST30 016516 59-1845 #59-1916 

7S$7T31 016774 59-1916 459-1990 


CKKUAAO CREATED BY 
SYMBOL CROSS REFERENCE 
VALUE 


UDPARO = 177660 
UDPAR1 = 177662 
UDPAR2 = 177664 
UDPAR3 = 177666 
UDPARS = 177670 
UDPARS = 177672 
UDPAR6 == 177674 
UDPAR7 = 177676 
UDPDRO = 177620 
UDPDR1 = 177622 
UDPDR2 = 177624 
UDPDR3 = 177626 
UDPDRS = 177630 
UDPDRS = 177632 
UDPDR6 = 177634 
UDPDR7 = 177636 
UIPARO = 177640 
UIPAR1 = 177642 
UIPAR2 = 177644 
UIPAR3 = 177646 
UIPARS = 177650 
UIPARS = 177652 
UIPAR6 = 177654 
UIPAR7 = 177656 
UIPDRO = 177600 
UIPDR1 = 177602 
UIPDR2 = 177604 
UIPDR3 = 177606 
UIPDR&4 = 177610 
UIPDRS5 = 177612 
UIPDR6 = 177614 
UIPDR7 = 177616 
USESTK = 000600 
USP =%000006 
WRITEE 004256 
SAPTHD 020000 


MACRO ON 20=SEP=79 AT 11:26 
REFERENCES 
59-1990 #6 

#58-1050 
#58-1080 

#58-1108 
62-2199 
$3=525 
#5 3-645 


#53-645 


#5 3-624 
58-1377 


57-996 
#62~-2194 


58-1027 
62-2194 


PAGE 12 
CREF 


2199 


62- 
53-527 
53-649 


58-1057 


53-555 
57-936 


53-571 
62-2197 


53-612 
62-2197 


58-1087 


53-634 
62-2199 


53-642 
62-2199 


SEQ 0131 























CKKUAAO 


tt 


CREATED BY 
SYMBUL CROSS REFERENCE 
VALUE 


REFERENCES 
62-219 


62-2198 
#62-2198 


#62-2198 


62-2197 


53-642 
99 


52-226 
52-226 
52-226 
53-520 


53-644 
53-609 


62-2199 


#6¢~7199 
#62-2199 


MACRO ON 20=SEP=79 AT 11:26 


62-2197 


*5 3-642 
57-935 
52-226 
52-226 


52-226 
52-226 


53-527 


#5 3-644 
53-631 


62-2199 
62-2197 


PAGE 13 
CREF 


62-2197 


#5 3-642 

57-935 
#52-226 
#5 2-226 
#5 2-226 
#52-226 


#5 2-226 
#52-226 


53-642 


#53-653 


#62-2199 
462-2199 


57-935 
52-226 
52-226 


52-226 
52-226 


52-226 
52-226 


53-642 


57-935 
52-226 
52-226 


52-226 
52-226 


52-226 
52-226 


53-642 


57-935 
#52=226 
#52-226 


#5 2-226 
#52-226 


#52-226 
#5 2-226 


62-2197 


57-935 
52-226 
52-226 


52-226 
52-226 


52-226 
52-226 


62-2197 


52-226 
52-226 


52-226 
52-226 


52-226 
52-226 


62-2197 


D171 “d 


CKKUAAO CREATED BY MACRO ON 20-SEP=79 AT 11:24 PAGE 14 
SYMBOL CROSS REFERENCE CREF SEQ 0133 
SYMBOL VALUE REFERENCES 
NV 020034 #62-2195 62-2197 62=2198 ~—s-62= 2198 
NVM =—-:020035 53-642 «57-930 «59-1994 60-2101 62-2195 . 62-2198 
$EOP 021252 60-2097 61-2186  #62=2199 
SEOPCT 021312 #5 7-935 2=2199 6 2=2199 
SERFLG 007101 #52-226 62-2196 62-2196 © 62-2196 62-2196 62-2196 62-2196 *62-2197 62-2197 
SERMAX 001113 #52-226 —*57=935. 62=2196 = *62=2196 = 62=2196 = 6 2= 2196 
SERROR 020470 57-935  #62=2197 
SERRPC = 001114 #52=226 —§3-492, *62=2197 #62=2197 6 2=2197 62-2197 6 2=2197 64-2315 64-2317 
64-231 64-2319 64-2320 64-2323 64=2324 642326 = 64=2327 642328 = 64-2329 
64-2330 64-2331 64-2333 64-2334 64-2335 64-2336 = 4-2337 = 64-2338 = 64-2339 
64-2360 64-2341 64-2342 
SERRTB «001326 #53-226 = 53-511 53-515 
$ERTTL 00110 #52=226 —#62=2197 6 2=2197 62-2197 62-2199 #6 2=2199 
SESCAP 001210 852-226 #57=935 —#62=2196 = 62-2197 6222197 62-2197 6 2=2197 
SETABL 020034 #62-2195 
$ETEND 020140 62-2194  #62=2195 
$FATAL 020016 #62-2195 #6 2=2198 
$FFLG 021250 "62-2198  *62=2198 62-2198 *62=2198 ~—-#62=2198 
SFILLC 001146 #52-226 = § 3-642 53-642 53-642 
$FILLS 001145 #52-226 = 53-642 «$38 =642 
$GDADR 001116 #52-226 
$GDDAT 001122 #5 2-226 
$GET42 021444 #62-2199 
$HD . 51-219 «51-219 «514219 
$HIBTS 020000 #62-219%4 
SICNT 001102 #52-226 —-*62=2196 = 62-2796 = *62=2196 = 62-2196 = 62-2196 
$ILLUP 2 53-649 #5 3-649 
SITEMB 001112 #52-226 = 553-490 *62=2197 62-2197 62-2197 62-2197 
F 001220 #52-226 —-45 3-642 53-642 62-2197 62-2197 
SLFLG 021247 *62-2198 #62-2198 
OOP = 021542 62-2199 #62-2199 
$i PADR 1104 #52-226 —-*57-935.— *58-1306 ~—-*58-1433  *58-1566  #59-1809 #591991 *60-2098 += 62-2196 
*62-2196 62-2196 = 62-2196 = 62-2196 
SLPERR 001106 #52-226 —*57-935.#57-965. 57-971 857-991. #571000 *58+1022.-*58-1031 «58-1052 
*58-1061 *58-1082 *5B-1091 «58-1111 *58-1123 «58-1132 *58-1148 —*58-1160 «58-1170 
#58-1186  *58-1203 -*58-1224 *58-1224  *58-1237 —*58-1237 *58-1251 #581251 *58-1264 
*58-1264 *58-1306 «58-1309 *58-1330 «58-1348 #581370 *58-1384 58-1403 *58-1419 
58-1433  #58-1508 = *58-1567 *59-1602 -*59-1619-—#59-1632-*59-1651 #59-1656 —-*59-1661 
*59-1666 *59-1671-#59-1676 = -#59-1681 -*59-1686 ~—*59-1691 -*59-1696 = *59-1701-#59-1702 
#591723 #59-1760 59-1809 #59-1815 -*59-1828 = *59-1852 «59-1857 *59-1862 «59-1867 
*59-1872 *59-1877 -*59-1882 -*59-1887  #59-1892 #591897 #59-1902 *59-1903 59-1924 
*59-1961  #59-1992 60-2099 62-2196 62-2196 = 62-2196 = 62-2196 = 62-2197 
$MADR1 20046 #62-2195 
$MADR? 020052 #62-2195 
SMADR3 020056 #62-2195 
SMADRS 20062 462-219 
SMAIL 020074 62-2194 62-2194 = #62-2195 
SMAMS 1 20044 "62-219 
$MAMS2 0.20050 #62-2195 
SMAMS3 020054 #62-2195 
SMAMSS 02 #62-2195 
| 








CKKUAAQ 


CREATED BY 
SYMBOL CROSS REFERENCE 


VALUE 


it 


noun 


xgaxaene 
raxenree 
xgeekrin 
agxkane 


003666 
020140 


62-2198 
*62-2198 
*62-2198 

62-2198 


62-2196 
53-642 


62-2199 


53-649 


#53-649 
62-2197 


*62-2197 


462-2196 





MACRO ON 20-SEP=79 AT 17:26 
REFERENCES 
962-2196 


*62-2198 
62-2198 


*62-2198 


62-2196 
#62-2195 


57-935 


62-2197 


64-2315 


64-2326 


*57-935 
53-645 
*53-649 





PAGE 15 
CREF 


62-2198 


62-2198 


#62-2196 
53-642 


460-2096 


#5 3-643 
62-2196 
62-2196 


62-2199 
*53-649 


*62-2198 


#57-988 
0 


60-2096 


*5 3-643 
#62-2196 
62-2196 


64-2323 
64-2339 


#62-2199 
#53-649 


57-988 


59-1916 


#5 3-643 
62-2196 


64-2326 


64-2334 
64-2339 
64-2341 


#57-988 
0 


#59-1990 


*62-2199 


64-2331 


64-2335 
64-2340 
64-2 342 


57-988 


#62-2199 


64-2336 


64-2338 
64-2342 


458-1020 


62-2199 


64-2337 
64-2340 


35 


SEQ 0 


1 


PAGE 16 
CREF 


CREATED BY MACRO ON 20-SEP-79 AT 11:26 


SYMBOL CROSS REFERENCE 


CKKUAAO 


Me nm 
min Son ONnNHnEESOS 
CUM OG SYN Ae eee 
NSAUN NDR — NNN 
oe | Si bdbduddddd 
—-RN —- oO Pp ad gd ae 
oor WMNMNNOO0OO0O 

w nw 
OMe Cu NM oa wee mee ae 
Maru NO me — NCU 
‘eee ti bddadudund 
—-KRYUe —h cmon 
—< WMIMIN OOO OO 

~ wn fK. 

OY OG CUM sv toatl eel oat ee 
NANO OUD eee ON 
#oeee St bddducucue 
ad aD hae —h wmamMOqncn 
mrwmow MMMMNNOO ODO 
a R 

MMO ROM owoo- ao 
OMen OCU NM — FOr ee 
NAUNN ND ee — ONION 
 seen1ed St bbdducurun 
Re —h cmocrnc 
Valvab *l ala) MOANINN OOOO 
Mn OMmM) Oweo ys ao 
CORPO NMOMO ee 
OAM NO er EK NNN 
oe St bdbdducucur 
om RR eee —h wmamnqncnr, 
WDNAIDNW MMANNIN OOOO 
at 2 

Owoawoorr 
Mm OMmnm COONDOAAAH 
CURNIRNOUCG NNOMBOe eee 
MNAorur NG ee NN 
‘eaete © hbdbd ducucuc 
—-KRLe —comonccc 
MINN WMMAMININ OO 0 0 

2 

CO" L255. 
MOIR COOWNUO—- ARADO 
CUMIPNOUC NNONNReC eee 
NAOON NNR RM eNO 
22 » @ Sh idbdbd duducuc 
“Ree —Vu@MaAeOooucrN 
o> MOWMMAMNN OOOO 

ow wm 
mmm Fina 092 FEES 
CUCOSPYVOUO NON OC ee 
NUD NAN NOUNA & OO 
epvpetveveteoevetoed 
em he RK VR WR WO TUCUCUN 
WNMNWIA OMNI OOOO 
= 22 
~ n~ 
MMMM OOM RERO 
Ne ninth hohak oe rshohoru 
NA NVNINNCS &— — CUCUTN 
BPSZEPASEPR EVER EF. 
Ce se Dek cee eel el el oe a * °) 8333 
WANA DAD ONNMMA OO OO 
ey 22 22 


REFERENCES 


*58-1055 *58-1085 


*58-1025 


#62-2199 


62-2199 


CKKUAAQ 

SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
$TRAP 003472 
STRP = 000022 
$TRPAD 003512 
$STSTM 02 
STSTNM 001100 
STYPBN = ®t eens 
$STYPDS 003246 
STYPE 002524 
STYPEC 002700 
$TYPE X 003016 
$TYPOC 3044 
$TYPON 003060 
$TYPOS 003020 
SUNIT 020026 
$UNITM 020010 
SUSWR 020040 
SVECT! 

SVECT2 020066 
$XTSTR 020214 
$$GET4 = 000001 
$$TRP = 000002 
SCF ILL 003243 
.SASTA = weewee 
. x = 020000 


CREATED BY 


53-645 


#62-2194 


#5 3-645 


62-2196 


#62-2199 
53-645 


#5 3-643 
62-2198 
62-2194 


MACRO ON 20=SEP=79 AT 11:26 
REFERENCES 
a 


53-645 


58-1306 
62-2196 


62-2199 
53-645 


53-643 


PAGE 17 
CREF 


53-645 
53-645 


*58-1433 
62-2196 


62-2198 


#5 3-642 


53-645 
#5 3-645 


G 11 


#53-646 


58-1433 
62-2196 


53-642 


53-645 


#5 3-645 
53-645 


53-647 


*59=1809 
62-2197 


53-645 


53-645 
#5 3-645 


59-1809 
62-2197 


53-645 


53-645 
5 3-645 
#5 5-445 
5 3-645 
53-647 


62-21% 
62-2197 


53-645 


5 $-646 


SEQ 01% 


See eee ee ee 







CKKUAAO 
MACRO CROSS REFE 
MACRO NAME 


RENCE 


REFERENCES 
#51=200 


#59-1631 


#48-4775 


CREATED BY MACRO ON 20=SEP=79 AT 11:26 


#57=-767 
#59-1590 


#58-1237 


#58-1433 
#57-746 

#57-882 

#58-1154 
#58-1418 
#59-1656 
#59=1764 
#59-1892 


59-1656 
59-1852 
59-1902 


957-962 
#58-1250 
#59-1713 
#53-641 
#5 3-641 





#5 7-769 


#58-1251 


#59-1809 
#57-748 

#57-884 

#58-1169 
458-1452 
#59-1661 
459-1827 
459-1897 


59-1661 
59-1857 


#57-988 
#58-1 263 
459-1809 
#5 3-644 
#5 3-644 


PAGE 
CREF 


18 


#5 7-790 


#57-772 


#59=1902 


59-1666 
59-1862 


#58-1020 
#58-1306 
459-1845 
453-649 
955-649 


#57792 


#57776 
#57-975 
58-1224 


#59-1945 


59-1671 
59-1867 


458-1050 
#58-1345 
459-1916 
#62-2198 
#62-2198 


a5 7-8). 


#57-795 

#57=1004 
#58-1237 
#58-1528 
#59-1676 
#59=1862 


59-1676 
59-1872 


#62-2198 


457-757 

#58-1035 
#58-1251 
459-1595 
459-1681 
#59-1867 


59-1681 
59-1877 


#58=-114? 
#58=-1432 
#60=2096 


862-2198 


a5 7-816 


857-819 

#58-1065 
#58-1264 
#59-1597 
#59-1686 
#59-1872 


59-1686 
59-1882 


#58-1145 
#58-1504 


a5 7-837 


#57=-B2) 

#58-1095 
#58-1323 
#59=1607 
459-1691 
#59=1877 


59-1691 
59-1887 


#58-1184 
#58-1551 






I 11 



















C®KK AAO CREATED BY MACRO ON 20=SEP=79 AT 17:26 PAGE 19 


MACRO CROSS REFERENCE CREF SEQ 0138 
MACRO NAME REFERENCES 
SAVTST 1254 62-2197 
SETTRA #5 3-645 #5 3-645 #5 3-645 #5 3-645 #5 3-645 #5 3-645 #5 3-645 #5 3-645 #5 3-646 #5 3-647 
SE TUP #10-1188 #51-222 57-935 
SKIP #16-1505 #51=222 57-974 57-1003 58-1034 58-1064 58-1094 58-1206 58-1226 58-1257 
58-1251 58-1264 58-1465 58-1537 58-1570 
SLASH #12-1309 = #5.1=222 
SPace #51-9 #51=222 
SSC ore #51-32 #62-2196 ; 
STARS 11-1278 #51=222 #51=225 #5 2-226 453-226 #5 3-641 #5 3-642 #5 3-643 #5 3-644 #5 3-645 


#5 3-649 #53-655 #57=962 #57-962 457-988 #57-988 #58-1020 #58-1020 58-1050  #58-1050 
#58-1080 #58-1080 58-1108 458-1108 58-1145 #58-1145 #58-1184 58-1184 #58-1223 #58-1223 
#58-1236 «= #58-1236 = 58-1250 }§=— #58-1250 §=—s- #58=-1263 = #58-1263 = #58-1306 §8=— #58 =1306 «= #5 8=1345 = #58 - 1345 
#58-14601 858-1401 458-1432 858-1432 58-1506 #58-15046 858-1551 458-1551 459-1613 59-1613 
#59=1646 = 59-1666 = #59=1713) 59-1713 = 59-1809 = #59-1809 = #59-1845 = #59=1845 = #59-1916 = #5 9= 1916 
#59-1990 = 59-1990 = #60-2096 = 460-2096 = 62-2194 = #62=2194 = 62-2196 = 62-2195 = 62-2196 = 462-2197 


TRACK #51=27 57-962 57-988 58-1020 58-1050 58-1080 58-1108 58-1145 58-1184 58-1223 
58-1236 58-1250 58-1263 58-1345 58-1401 58-1432 58-1504 58-1551 59-1613 59-1646 


TRACK) #51-20 57-962 57-988 58-1020 58-1050 58-1080 58-1108 58-1145 58-1184 58-1223 
58-1236 58-1250 58-1263 58-1345 58-1401 58-1432 58-1504 58-1551 59-1613 59-1646 
59-1713 59-1845 59-1916 59-1990 


TRMTRE #5 3-645 

TYPBIN #19-1812 #51-222 

TYPDE ( #19-1782 #51-222 62-2199 62-2199 

TYPNAM #17-1558 #51-222 57-936 

TY¥PNUM #19-1749 #51-222 

TYPOCS #19-1702 #51-222 

TYPOCT #19-1665 51-222 

TYPTXT #18-1619 #51-222 62-2199 62-2199 

USER #51-78 52-226 

ZEROER #51-66 62-2197 ; ; 
$$CMRE #51=226 #52-226 #5 2-226 #5 2-226 #5 2-226 #52-226 #5 2-226 
$$CM™M #51-226 #52-226 #5 2-226 #5 2-226 #5 2-226 #5 2-226 #52-226 
$$ESCA #15-14684 = #51=222 

SENEW" #14-1438 #51-222 57-962 57-988 58-1020 58-1050 58-1080 58-1108 58-1145 58-1184 


58-1225 56-1256 58-1250 58-1263 58-1306 58-1345 58-1401 58-1432 58-1504 58-1551 
59-1613 59-1646 59-1713 59-1809 59-1845 59-1916 59-1990 60-2096 


$$5E7 #5 3-645 53-645 53-645 53-645 53-645 53-645 53-645 53-645 53-646 53-647 

$$SE TU 457-935 57-935 

$$SKIP #16-1518  #51-222 57-974 57-1003 58-1034 58-1064 58-1094 58-1206 58-1224 58-1237 
58-1253 58-1465 58-1537 58-1570 

-F QUAT #4~-183 

-FQUIV #51-22e2 #51=222 #51-222 #51-222 #51=222 #51=222 #51=222 #51-222 





#51-222 #5 1-222 #51=222 #51=222 #51-222 #51-222 


#51-222 #566720 58-1307 #59~1716 


| 
| 
| 
| 
| 





CKKUAAD CREATED BY 
MACRO CROSS REFERENCE 
MACRO NAME REFERENCES 
. SWRH I #3-100 
. SWRLO #51=220 
.$ACT1 865-4376 
.SAPTB #645-4428 
.SAPTH 946-4684 
SAPTY #49-4859 
.SASTA 447-4730 
.SCMTA #8-986 
. SDR2D #640-4111 
. $DB20 #4 2-42 36 
.SO0lv #39-4013 
. SEOP #21-1935 
. SERRO #23-2352 
.SERRT #26-25346 
.SMULT #38--3949 
. 8POwE #34-3657 
. SRAND #35-3717 
SRDDE #31-3353 
$RDOC #30-3261 
SRE AD #29-3025 
. SSAVE #32-3429 
. $SB2D #41-4196 
- $SB20 463-4299 
$SCOP #22-2153 
$SIZE #36-3771 
SSUPR 444-4338 
STRAP #33-3530 
$TYPB #28-2928 
$TYPD #27-2850 
$TYPE 425-2622 
$T YPC #26-2753 
17C #6-509 


#51-210 
#51=-210 


#51-212 
51-271 
#51-211 


a@51-212 


#5t-211 


#S$1-211 


#51-212 
#51=211 


MACRO ON 20=SEP=79 AT 


51=220 
#51=225 

62-2195 
462-219 

62-2198 


51-226 
51-226 


53-653 
#62°2199 
62-2197 


5 %-649 


#5 3-64) 


62-2196 


853-645 


J11 


SS A SS 


